Joker karakterek a szűrési kritérium megadásánál? (akár a makróban, akár manuálisan)
Nekem van ilyen módon működő táblázatom, én így adtam meg a szűrés kritériumát:

Dim C As String
C = "*" & Cells(1, 7).Value & "*"
Selection.AutoFilter, Criteria1:=C

Ebben a formában nyilván nem működik, mert kitöröltem a felesleges sorokat