EXCEL VBA Termindaten aus Tabelle Filtern

Const SpalteSuchen = "B:B"          ' Spalte Suchen  
Const DatenSpalteVon = "A"          ' Daten kopieren von Spalte  
Const DatenSpalteBis = "E"          ' Daten kopieren bis Spalte  

Const ZielSpalte = "A"              ' Spalte Ziel-Tabelle  

Sub Suchen()
    Dim WksQ As Worksheet, WksZ As Worksheet, Suchliste As Variant, Token As Variant, Eingabe As String
    
    Eingabe = InputBox("Bitte Suchbegriffe Komma-Getrennt eingeben:", "Suchliste...")  
    If Eingabe = "" Then Exit Sub  
    
    Set WksQ = Sheets(SheetQuelle)
    Set WksZ = Sheets(SheetZiel):  WksZ.Cells.Clear
    
   'Überschriftzeile in Ziel-Tabelle schreiben  
    Range(WksQ.Cells(1, DatenSpalteVon), WksQ.Cells(1, DatenSpalteBis)).Copy WksZ.Cells(1, ZielSpalte)
    
    Suchliste = Split(Eingabe, ",")  
    
    For Each Token In Suchliste
        If Token <> "" Then Call SearchAndCopy(WksQ, Trim(Token), WksZ)  
    Next
End Sub

Private Sub SearchAndCopy(ByRef WksQ, ByRef Token, WksZ)
    Dim Found As Range, Suchtext As String, ZeileQ As Long, ZeileZ As Long
    
    With WksQ
        Suchtext = "" & Token & ""  'Teilübereinstimmung vor und nach mit "*"  
        If .Range(SpalteSuchen).AutoFilter(Field:=1, Criteria1:=Suchtext, VisibleDropDown:=False) Then
            ZeileQ = WksQ.Cells(WksQ.Rows.Count, "C").End(xlUp).Row  
            ZeileZ = WksZ.Cells(WksZ.Rows.Count, "C").End(xlUp).Row + 1  
            Range(.Cells(2, DatenSpalteVon), .Cells(ZeileQ, DatenSpalteBis)).Copy WksZ.Cells(ZeileZ, ZielSpalte)
        End If
       .AutoFilterMode = False
    End With
End Sub