Hier das fertige Exemplar. Es scheint ganz gut zu funktionieren.

Sub T(suchwort As String, copiertabelle As String, zieltabelle As String)


'Autofilter setzen und lösen
Sheets(copiertabelle).Range("A1").AutoFilter

'Filtern: Bestimmter Wert
 Sheets(copiertabelle).Range("A1").AutoFilter Field:=1, Criteria1:=suchwort
 
 'KopierenEinfügen
 With Sheets(copiertabelle)
       
      .Range("A1:A20").SpecialCells(xlCellTypeVisible).Copy _
    Sheets(zieltabelle).Cells(Sheets(zieltabelle).Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
End With

End Sub
 

Sub zieltabelleLeeren()
Sheets("Tabelle3").Cells.Clear
End Sub


 



Sub Zeigen()
Call zieltabelleLeeren
Call T("G", "Tabelle1", "Tabelle3")
Call T("A", "Tabelle2", "Tabelle3")
End Sub