Formel-Erweiterung: Autofilter via VBA

Private Sub Worksheet_ChangeAutor(ByVal Target As Range)
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Call ws.Range("B6").AutoFilter(2, "yes", , , True)
ws.Range("E3").Activate
End Sub

In B6 befindet sich die Spaltenüberschrift und in der Spalte sind die Werte "yes" oder "no" enthalten. In Zelle E3 wird ein Suchbegriff eingegeben, der über eine Formel in Spalte B zur Ausgabe von "yes" oder "no" woraufhin gefiltert wird.
Ich würde diese Form der Suche gern noch auf andere Spalten abwandeln. Die entsprechende Formel zum Generieren der "yes"- und "no"-Werte konnte ich bereits erfolgreich abwandeln. Leider hapert es gravierend bei der Abwandlung des oben aufgeführten Codes. Einfaches Copy & Paste und dann aus B6 ein F6 machen führt leider zu keiner Lösung, da dann nicht einmal mehr der ursprüngliche Filter funktioniert. Habt Ihr vielleicht eine Idee für mich?
Herzlichen Dank und schöne Grüße
Krauti