Macro for deleting autofiltered rows

Originally Posted by tuph

Hooray! At least, someone gets it!

Thanks for the tips. The macro can recreate the autofilter for each deletion, if necessary, but retaining it would be my first choice.

Either

  Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    Application.DisplayAlerts = True

or


ilastrow = ActiveSheet.Range("A65536").End(xlUp).Row
With w2
   .Range(Rows(2), Rows(ilastrow)).Select
    Selection.Delete
    End With

should work, but don't use =Rank(~) column as your test data, it sends you funny.

hth
---