Объединить несколько таблиц рабочих книг в одну таблицу на другой книге с помощью vba

Question

Мне интересно, как я могу скопировать содержимое всех моих рабочих книг, называемых "Таблица1" (кроме заголовков), и вставить их в аналогично отформатированную таблицу под названием "Таблица2" в основной книге.

Вот код, который я использовал для обновления 3200 рабочих книг, я надеюсь снова использовать этот шаблон.

Я только хочу скопировать строки, которые используются (не заголовки), а затем добавить значения следующей таблицы в нижней части таблицы.

"Таблица1" в каждой книге регистрирует некоторую информацию каждый раз, когда книга сохраняется. Я бы хотел, чтобы мастер "theFILE 1.1.xlsm" имел основную таблицу ("Table2") на листе Master Edits.

Sub Macro2() 

Application.ScreenUpdating = False

Dim sFile As String
Dim wb As Workbook
Dim FileName1 As String
Dim FileName2 As String
Dim wksSource As Worksheet
Const scWkbSourceName As String = "theFILE 1.1.xlsm"

Set wkbSource = Workbooks(scWkbSourceName)
Set wksSource = wkbSource.Sheets("Sheet1") ' Replace Sheet1 with the sheet name

Const wsOriginalBook As String = "theFILE 1.1.xlsm"
Const sPath As String = "E:\theFILES\"

SourceRow = 5

Dim tbl As ListObject
Set tbl = ws.ListObjects("Table2")
Dim newrow As ListRow
Set newrow = tbl.ListRows.Add


Do While Cells(SourceRow, "D").Value <> ""

Sheets("Sheet1").Select

FileName1 = wksSource.Range("A" & SourceRow).Value
FileName2 = wksSource.Range("K" & SourceRow).Value

sFile = sPath & FileName1 & "\" & FileName2 & ".xlsm"

Set wb = Workbooks.Open(sFile)
'''Enter Code for Copy/Paste Tables 

Sheets("EDITS").Visible = True
Sheets("EDITS").Select
ActiveSheet.ListObjects("Table1").Range.Select
'need to omit the header
Selection.Copy

Windows("theFILE 1.1.xlsm").Activate
Sheets("Master Edits").Select
Range("Table2[DATES]").Select
With newrow

    ActiveSheet.Paste

End With

Windows("wb").Activate
Sheets("EDITS").Visible = False

Windows("theFILE 1.1.xlsm").Activate
Sheets("Sheet1").Select



'''CLOSE WORKBOOK W/O BEFORE SAVE
Application.EnableEvents = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.EnableEvents = True

SourceRow = SourceRow + 1 ' Move down 1 row for source sheet

Loop

End Sub

Моя проблема в том, что я не хочу заголовков. Мне нужно добавить новые строки для данных следующей таблицы.

Любая помощь очень ценится. Спасибо!