Sub Autofilter()
Selection.AutoFilter Field:=5, Criteria1:= _
"=NPF", Operator:=xlAnd
End Sub

How can I amend above code to replace NPF with the contents of my
active cell
(E.g either by Application.InputBox type := ???
or replace NPF by activecell.content ???)

Thxs