Boa tarde!!

Talvez...
(Não Testado!!!!!!!!!!!!!!!!!)
Copiando para outro DB

Dim objAcc As Object
Dim objAcc2 As Object
 
Set objAcc = New Access.Application
objAcc.OpenCurrentDatabase ("C:SeuArquivo.accdb")
objAcc.DoCmd.CopyObject "D:SeuOUtroArquivo.accdb", , acTable, "SourceTableNameHere"
objAcc.CloseCurrentDatabase
Set objAcc = Nothing

Mesmo DB

Dim mydb As database
Dim tdf As tableX

Set mydb = SeuDB

For Each tdf In mydb.tableX
    If InStr(tdf.Name, "Tab1") > 0 Then
       docmd.runsql "INSERT INTO TEST_DOC SELECT * FROM " & tdf.Name
    End If
Next tdf

Set mydb = Nothing

https://msdn.microsoft.com/en-us/librar ... =office.12).aspx

Att

Thanks