Import viacerých mdb do jednej xlsx tabuľky

Dobry den. Po importe tabulky z mdb suboru sa udaje nevlozia do prvej prazdnej bunky, ale otvori sa novy zosit. Makro je zatial len testovanie pre jeden subor (potreboval by som zadat cyklus pre nacitanie vsetkych mdb v jednom adresari):

…………………
Sub Makro2()

Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Dim MyRange As String

‘urcenie prvej prazdnej bunky:
Set the_sheet = Sheets(“Sheet1”)
Set table_list_object = the_sheet.ListObjects(1)
Set table_object_row = table_list_object.ListRows.Add

last_row_withData = the_sheet.Range(“A900000”).End(xlUp).Row + 1

‘otvorenie externej databazy:
Workbooks.OpenDatabase Filename:= “C:\Users\source\source1.mdb” _
, CommandText:=Array(“table1”), CommandType:=xlCmdTable, ImportDataAs:= _
xlTable

‘vlozenie tabulky z externej databazy do prvej prazdnej bunky:
the_sheet.Range(“a” & last_row_withData).PasteSpecial

End Sub