Error AutoFilter Method of Range Class Failed

[barne2100]

Hello! I am relatively new to Macros so bare with me. Here is the code that I am working with:

Sub Step4()
'
' Step4 Macro
'
' Keyboard Shortcut: Ctrl+Shift+N
'
ActiveSheet.AutoFilterMode = False
Range("K1").AutoFilter Field:=11, Criteria1:=Array( _
"#N/A"), Operator:=xlFilterValues, Criteria2:=Array(0, "1/0/1900")
Range("K3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$2:$P$96").AutoFilter Field:=11
End Sub


The error occurs in the area that is red. I am unable to figure out what the issue is. My goal is to filter to anything that has an N/A or a 1900 Date (basically 0), and delete those rows. Any help would be great! Thank you

 

[Yongle]

I think your data table is in columns A:P, with headers in row 2

100000 is big enough to ALWAYS include all your data

ActiveSheet.Range("A2:P100000").AutoFilter Field:=11, Criteria1:=Array("#N/A"), Operator:=xlFilterValues, Criteria2:=Array(0, "1/0/1900")

If headers are in row 1, you can always use use the simple

ActiveSheet.Range("A:P").AutoFilter Field:=11, Criteria1:=Array("#N/A"), Operator:=xlFilterValues, Criteria2:=Array(0, "1/0/1900")

 

[barne2100]

I think your data table is in columns A:P, with headers in row 2

100000 is big enough to ALWAYS include all your data

ActiveSheet.Range("A2:P100000").AutoFilter Field:=11, Criteria1:=Array("#N/A"), Operator:=xlFilterValues, Criteria2:=Array(0, "1/0/1900")

Thank you for your reply! You are correct, my headers are in row 2. The code you listed did not work though, the same error occurred. Any other ideas?