Hallo Bert

Eine mögliche Variante!

Sub Copy_Sammeln()
 Dim Eingabestring As String
        Eingabestring = InputBox("Eingabe")
        Worksheets("Tabelle3").Range("B1").AutoFilter Field:=1, Criteria1:=Eingabestring
        Worksheets("Tabelle3").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle5").Range("A" & Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
        Worksheets("Tabelle3").Range("A10").AutoFilter

        Worksheets("Tabelle4").Range("B1").AutoFilter Field:=1, Criteria1:=Eingabestring
        Worksheets("Tabelle4").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle5").Range("A" & Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
        Worksheets("Tabelle4").Range("A10").AutoFilter
End Sub

Gruß Michael