.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "Таблица1"

Sub CombineWorkbooks()
    Dim FilesToOpen, wbReport As Workbook, wbImportFrom As Workbook, Sht As Worksheet, LastRow As Long, rngData As Range, iFile As Long
    Dim iRow As Long, blCopyHeader As Boolean, counter As Long
    
    'вызываем диалог выбора файлов откуда будем брать данные
    FilesToOpen = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", MultiSelect:=True, Title:="Укажите файлы")
 
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!", vbExclamation, "Внимание"
        Exit Sub
    End If
     
    Set wbReport = Workbooks.Add(template:=xlWorksheet)
    counter = 1
     
    Application.ScreenUpdating = False
    'проходим по всем выбранным файлам
    For iFile = 1 To UBound(FilesToOpen)
        Set wbImportFrom = Workbooks.Open(Filename:=FilesToOpen(iFile), ReadOnly:=True)
        With wbImportFrom.Worksheets("Sheet1")
            If .FilterMode = True Then .ShowAllData
            .Range("A1").ClearOutline
            'копируем шапку таблицы
            If blCopyHeader = False Then
                blCopyHeader = True
                .Range("A1:L1").Copy wbReport.Worksheets(1).Range("A1")
            End If
            LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
            If LastRow > 1 Then
                For iRow = 2 To LastRow
                    If Not IsEmpty(.Cells(iRow, "B")) Then
                        Set rngData = .Range(.Cells(iRow, "A"), .Cells(iRow, "L"))
                        counter = counter + 1
                        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(counter, 1)
                    End If
                Next iRow
            End If
        End With
        wbImportFrom.Close savechanges:=False
    Next iFile
    
    With wbReport.Worksheets(1)
        .Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous
        .Columns("A:L").AutoFit
        .Rows(1).AutoFit
        .ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "Таблица1"
    End With
    Application.ScreenUpdating = True
    MsgBox "Сборка данных завершена!", vbInformation, "Конец"
End Sub

Sub CombineWorkbooks()
    Dim FilesToOpen, wbReport As Workbook, wbImportFrom As Workbook, Sht As Worksheet, LastRow As Long, rngData As Range, iFile As Long
    Dim iRow As Long, blCopyHeader As Boolean, counter As Long
     
    'вызываем диалог выбора файлов откуда будем брать данные
    FilesToOpen = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", MultiSelect:=True, Title:="Укажите файлы")
  
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!", vbExclamation, "Внимание"
        Exit Sub
    End If
      
    Set wbReport = Workbooks.Add(template:=xlWorksheet)
    counter = 1
      
    Application.ScreenUpdating = False
    'проходим по всем выбранным файлам
    For iFile = 1 To UBound(FilesToOpen)
        Set wbImportFrom = Workbooks.Open(Filename:=FilesToOpen(iFile), ReadOnly:=True)
        With wbImportFrom.Worksheets("Sheet1")
            If .FilterMode = True Then .ShowAllData
            .Range("A1").ClearOutline
            'копируем шапку таблицы
            If blCopyHeader = False Then
                blCopyHeader = True
                .Range("A1:L1").Copy wbReport.Worksheets(1).Range("A1")
            End If
            '
            LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
            If LastRow > 1 Then
                For iRow = 2 To LastRow
                    If Not IsEmpty(.Cells(iRow, "B")) Then
                        Set rngData = .Range(.Cells(iRow, "A"), .Cells(iRow, "L"))
                        counter = counter + 1
                        'копируем строку в наш отчёт
                        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(counter, 1)
                    End If
                Next iRow
            End If
        End With
        'закрываем очередной файл и переходим к другому файлу
        wbImportFrom.Close savechanges:=False
    Next iFile
     
    'наведение красоты в полученном отчёте
    With wbReport.Worksheets(1)
        .Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous 'границы
        .Columns("A:L").AutoFit 'автоподбор ширины столбцов
        .Rows(1).AutoFit
        .Columns("J:J").NumberFormat = "#,##0.00" 'формат ячеек к числами
        .Range("A1").CurrentRegion.Sort Cells(1, 12), xlAscending, Header:=xlYes 'сортировка
        .ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "Таблица1" 'умная таблица
        .Range("J" & .UsedRange.Rows.Count + 1).FormulaLocal = "=СУММ(J2:J" & .UsedRange.Rows.Count & ")" 'сумма
    End With
    Application.ScreenUpdating = True
    MsgBox "Данные из " & UBound(FilesToOpen) & " файлов собраны!", vbInformation, "Конец"
End Sub

.Range("A1").CurrentRegion.Sort Cells(1, 2), xlAscending, Header:=xlYes 'сортировка дат

wbReport.SaveAs FileFormat:=51, CreateBackup:=False