Deleting Filtered Data

[BillTony]

I have a worksheet where the dataset will never be the same from day to day.

I'm using filtering and I show only rows that do not equal a #N/A value.

I recorded a macro to delete the non-#N/A rows.

In this particular example, there are 101 rows to delete.

How can I - without arbitrarily tossing in some number like 150,000 as the upper limit - adjust for the exact size of the dataset as it increases or decreases?

ActiveSheet.Range("$A$1:$ZZ" & Last_Row_ColA).AutoFilter Field:=43, Criteria1:="<>#N/A"
    Rows("2:101").Select
    Selection.Delete shift:=xlUp

 

[MARK858]

Do you mean something like....

Sub FilterDel()
    With Range("A1:ZZ" & Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=43, Criteria1:="<>#N/A"

        On Error Resume Next
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        .AutoFilter

    End With
End Sub

 

[BillTony]

Greatly appreciated - this cut my processing time DRASTICALLY!