How about getting rid of the dates!
[VBA]
Sub Macro2()
col = ActiveCell.Column
Set filtrng = Range("A2:J1622")
ActiveCell.EntireColumn.Cells.NumberFormat = "General"
filtrng.AutoFilter Field:=6, Criteria1:="<>" & CLng(ActiveCell)
ActiveCell.EntireColumn.Cells.NumberFormat = "mmmm yyyy"
End Sub
[/VBA]