bakın ben size daha kapsamlı bir seç ve aktar özelliği veriyorum siz illaki bana kıytırık bir aktarma olsun diyorsunuz

sizin dediğiniz bir listeye alınız
a tablo1
b tablo2
c tablo3

bunun için bir çok seçenek olabilir ben bir kaçını yazayım öncelikle hani benim kodlarımda olan listeden seçili olanları dolan varya işte onu kullanarak

her seçilende
Private Sub Komut2_Click()
Dim varSelected As Variant
For Each varSelected In Liste2.ItemsSelected
DoCmd.RunSQL "INSERT INTO [" & Me.Liste2.Column(1, varSelected) & "] ([Alan1]) Values('" & Me.Liste2.Column(0, varSelected) & "')"
Next varSelected
End Sub

bu şekilde olabilir en kıytırığı
birde ado yada dao ile ana tabloyu açtırarak bütün kayıtları dolanıp her kayıt değişkenli tablo ismini alarak açtırıp ekleme yapılabilir vs vs buna benzer bir sürü kıytırık örnek verilebilir tabi siz yerimde sayayım bir adım öne gitmeyeyim bu kodlar beni aşar ben bunları çözemem diyorsanız o zaman başka

bende istediğiniz basit örneği ekledim kod yukardaki kodun aynısıdır.
ve konu çözülmüş sorulara taşınmıştır.