Private Sub Worksheet_Activate()
Dim e As String
ThisWorkbook.Activate            'строка не обязательна если работать в одной книги
Set Tab_1 = Лист1.ListObjects("Таблица1")

y = Tab_1.ListRows.Count         'посчитать количество строк в таблице
x = Tab_1.ListColumns.Count      'посчитать количество строк в таблице

a = Tab_1.ListColumns("Au_key").Range.Column  'Определить № столбца по имени столбца

e = "Уникальное название книги" & y
    For b = 1 To y
        If Tab_1.DataBodyRange(b, a) = "" Then
            Tab_1.DataBodyRange(b, a) = e
            
                For с = 1 To y

                    If Tab_1.DataBodyRange(с, a) = Tab_1.DataBodyRange(b, a) Then
                        MsgBox "найден дубликат"
                            For d = 1 To y
                                If Tab_1.DataBodyRange(d, a) = Tab_1.DataBodyRange(b, a) Then
                                    If d = b Then
                                     GoTo перенос2
                                    End If
                                    Tab_1.DataBodyRange(b, a) = e & "_" & d
                                    EXitFor
перенос2:
                                End If
                            Next d
                    End If
                Next с
        End If
    Next b
End Sub

Sub Динамиеские_таблцы()

ThisWorkbook.Activate            'строка не обязатель если работать в одной книги
Set Tab_1 = Лист1.ListObjects("Таблица1")

y = Tab_1.ListRows.Count         'посчитать колиесво строк в таблице
x = Tab_1.ListColumns.Count      'посчитать количесво столбец в таблице

'Tab_1.ListRows.Add           'Добавить новую строку
'Tab_1.ListRows(1).Delete     'удалить строку№
'Tab_1.ListRows(y).Delete     'удалить последнюю строку

'Tab_1.ListColumns.Add          'Добавить новый столбец
'Tab_1.ListColumns.Add 1        'Добавить новый столбец на позцию
'Tab_1.ListColumns(1).Delete    'Удалить колонку№
'Tab_1.HeaderRowRange.Select    'Выделить всю шапку таблицы
'Tab_1.HeaderRowRange(3).Select 'Выделить столбец№ в шапке таблице

'Tab_1.DataBodyRange.Select       'выделить всю таблицу
'Tab_1.DataBodyRange(3, 3).Select 'выделить ячейку
'Tab_1.DataBodyRange.Delete       'Удалить всю таблицу

'For a = 1 To x
'    Tab_1.ListColumns(a).Range.ColumnWidth = 20 'Задать ширину столбцов в 20
'Next a

'Tab_1.ShowTotals = False 'Включить строку итогов

a = Tab_1.ListColumns("Столбец1").Range.Column  'Определить № столбца по имени столбца
b = Tab_1.DataBodyRange(1, a)                   'Обратиться к ячейке (строка 1, столбец a)

MsgBox b
End Sub

Option Explicit

Dim a As Variant 'Заменяемое значение
Dim b As Variant 'Заменимое значение
Dim c As Variant 'Переменная № строки в цикле заменяемого №1
Dim d As Variant 'Переменная № строки в цикле заменимого №2
Dim e As Variant 'Количество строк в выделенном диапазоне №1
Dim f As Variant 'Количество столбцов в выделенном диапазоне №1
Dim g As Variant 'Количество строк в выделенном диапазоне №2
Dim h As Variant 'Количество столбцов в выделенном диапазоне №2
Dim i As Variant 'Номер 1-ой строки в выделенном диапазоне №1
Dim j As Variant 'Номер 1-ой колонки в выделенном диапазоне №1
Dim k As Variant 'Номер 1-ой строки в выделенном диапазоне №2
Dim l As Variant 'Номер 1-ой колонки в выделенном диапазоне №2

Private Sub CommandButton1_Click()
    If RefEdit1 = "" Then 'Проверка диапазона №1 на заполнение
        MsgBox "нет данных в диапазоне №1"
        Exit Sub
    End If
    If RefEdit2 = "" Then 'Проверка диапазона №2 на заполнение
        MsgBox "нет данных в диапазоне №2"
        Exit Sub
    End If
'Выделеный диапазон №1
e = Range(RefEdit1).Rows.Count      'Количество строк в выделенном диапазоне №1
    
    If e < 1 Then 'Проверка диапазона №2 на заполнение
        MsgBox "мало строк в диапазоне №1"
        Exit Sub
    End If
    
f = Range(RefEdit1).Columns.Count   'Количество столбцов в выделенном диапазоне №1
i = Range(RefEdit1).Row             'Номер 1-ой строки в выделенном диапазоне №1
j = Range(RefEdit1).Column

'Выделеный диапазон №2
g = Range(RefEdit2).Rows.Count
'h = Range(RefEdit2).Columns.Count
k = Range(RefEdit2).Row
'l = Range(RefEdit2).Column

    If CheckBox1 = True Then
        Первый
        MsgBox "Первый"
    Else
        Второй
        MsgBox "Второй"
    End If
    
End Sub
Sub Второй()
    For c = i To (e + i - 1)
        a = Cells(c, j)
        b = Cells(c, j + 1)
        Range(RefEdit2).Replace What:=a, Replacement:=b, LookAt:=xlPart
    Next c
End Sub
Sub Первый()
    For c = i To (e + i - 1)
        a = Cells(c, j)
        b = Cells(c, j + 1)
        Range(RefEdit2).Replace What:=a, Replacement:=b, LookAt:=xlWhole
    Next c
End Sub

Private Sub UserForm_Activate()
    UserForm1.ComboBox1.AddItem "1 Бокс"
    UserForm1.ComboBox1.AddItem "2 Бокс"
    UserForm1.ComboBox1.AddItem "3 Бокс"
    UserForm1.ComboBox1.AddItem "4 Бокс"
    UserForm1.ComboBox1.AddItem "Ночная смена"
    UserForm1.ComboBox1.AddItem "Кафе"
End Sub

Private Sub UserForm_Activate()
    UserForm1.ComboBox6.RowSource = "settings!O1:O8"
End Sub

Sub Список_файлов()
   
    Dim t As Long                                                               'Задаем переменные
    Dim первый As FileDialog
    Dim второй As String
    
    t = Timer                                                                    'Зафиксировать время (для расчета времени работы макроса)
    MsgBox "Начинаем?"                                                           'Выводим преупреждение о начале работы макроса
    
    Set первый = Application.FileDialog(msoFileDialogFolderPicker)
        первый.Title = "Выбери папку"
        первый.AllowMultiSelect = False
        первый.Show
    
    второй = первый.SelectedItems(1)
    третий = Dir(второй & "\*.xls")

    Do While третий <> ""
    'Debug.Print третий
        'третий = Dir
        Set wb = Workbooks.Open(второй & "\" & третий)
        
        
'Ниже написан код который заменяет один формат на другой (записал макрорекордером не обессутьте и переделал под себя)

        Columns("G:G").Select                        'Это нужно для того чтобы активировать открытый в предыдущей части кода лист (чтобы код доработал именно здесь)
        ChDir ActiveWorkbook.Path                    'Как я понял это место сохранения готового файла
    ActiveWorkbook.SaveAs Filename:= _               '_-это перенос кода на другю строку
        ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "x", FileFormat:= _ ' определяет путь к папке, определяет имя файла
        xlOpenXMLWorkbook, CreateBackup:=False
        
        
        
 
        'Run "Макрос1"                                       'Какой макрос работает? это для тех случаев если работать должен макрос который написан отдельно
        wb.Close True: третий = Dir

    Loop
    
    MsgBox "Обработка данных продолжалась  " & Timer - t & " сек.", vbInformation 'засекает время работы макроса

End Sub