Is there a faster way than a loop to delete rows that satisfy a criteria

7 for Sunday?
1 for Sunday to me...

Sub test()
    With Range("a1", Range("a" & Rows.Count).End(xlUp))
        .Value = Evaluate("if(weekday(" & .Address & ")=7,""""," & .Address & ")")
        .SpecialCells(4).Delete xlShiftUp
    End With
End Sub

Jindon: your solution took 40 seconds. that is awesome.


now, I need to understand it.

1) I get the first part With "a range"
2) the second line I don't entirely understand it. I have never used EVALUATE
3) then you cleared any empty cell within the range using specialcells(4).delete

thanks a lot for your solutions guys
-Phil