Excel-автоматический импорт данных из ячейки при создании новой вкладки

что-то вроде этого создаст список в столбце sheet1 имен листов, и каждый раз, когда ячейка C1 on любой лист изменения, он будет поместить значение этой ячейки в лист1 в столбце B, рядом с соответствующим именем листа в столбце a

в ThisWorkbook модуль через редактор VBA*. При необходимости можно изменить имя листа и диапазоны.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Sh.Range("C1")) Is Nothing Then
        Dim ws As Worksheet
        Set ws = Sheets("Sheet1")
        Dim iRow As Integer
        On Error GoTo Yikes:
TryAgain:
        iRow = Application.WorksheetFunction.Match(Sh.Name, ws.Range("A1:A50"), 0)
        ws.Cells(iRow, 2) = Target.Value
        Exit Sub

Yikes:

        Dim rowcount As Integer
        rowcount = ws.Cells(Rows.Count, 1).End(xlUp).Row
        Dim r As Range
        Set r = ws.Cells(rowcount + 1, 1)
        r = Sh.Name
        GoTo TryAgain:
    End If
End Sub

*чтобы добраться до редактора VBA, вы должны перейти к кнопке office, параметры excel а в популярном теге поставьте галочку в поле рядом с Show Developer tab in the Ribbon. Затем закройте это, перейдите на вкладку Разработчик и нажимаем кнопку Visual Basic кнопка слева. Откроется редактор, и вам нужно будет дважды щелкнуть ThisWorkbook модуль на левой панели.