'Woran könnte es liegen, dass der zweite Filter nicht funktioniert?

Sub ErsterFilter(suchwort As String, copiertabelle As String, zieltabelle As String, begriff As String)

'Setzung des Filters 1
With Tabelle1
    .AutoFilterMode = False
    .Range("A1:D20").AutoFilter Field:=2, Criteria1:="*" & suchwort & "*"
End With

'Kopiervorgang zu Filter 1
 With Sheets(copiertabelle)
    .Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
    Destination:=Sheets(zieltabelle).Cells(Sheets(zieltabelle).Cells(Rows.Count, 1) _
   .End(xlUp).Row, 1)
End With






'Zweiter Filter
With Tabelle4
    .AutoFilterMode = False
    .Range("A1:D20").AutoFilter Field:=2, Criteria1:=suchwort
End With


 'Kopiervorgang 2. Tabelle
 With Sheets(copiertabelle)
    .Range("A1:D20").SpecialCells(xlCellTypeVisible).Copy _
     Destination:=Sheets(zieltabelle).Cells(Sheets(zieltabelle).Cells(Rows.Count, 1) _
   .End(xlUp).Row, 1)

   
End With


End Sub