Filtrer ud fra celleværdi

Du kan nok nærmest optage at du filtrerer.
Når jeg gør det, får jeg dette:
ActiveSheet.Range("$A:$C").AutoFilter Field:=3, Criteria1:="Brand NPS"

Så en variabel der først opsnapper celleværdi i D1:
strCelleD1 = sheets("arknavn").range("D1").value - så udskirfter du "Brand NPS" med strCelleD1

og en til fanenavn:
strFaneE1 = sheets("arknavn på E1 fanen").range("E1").value

Hoppe retur:
sheets(strFaneE1).range("A1").activate

Mange tak for hjælpen, det var lige hvad jeg ønskede mig.
Rigtig god dag