I have searched the forum and found this code that does what i want to do with a couple of exceptions. When i change the Range from ("B:B") to "A:A" it still filters column B. Also i would only like to filter after row 5 so my headings are still show.

The input box is field I2 (criteria range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Else
Worksheets("Sheet1").Range("B:B").AutoFilter _
field:=1, _
Criteria1:=Range("A1").Value, _
VisibleDropDown:=False
End If
End Sub