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

Hi everyone,

I am deleting every sunday from a 5- year dates list.

My list of date is in column "A".

Since Sunday = weeday("date") -> 7

I do the following:

sub delete_sunday

for x = 1 to cells(rows.count,"a").end(xlup).row

  If weekday(cells(x,"A").value) = 7 then
    rows(x).delete xlshiftup
    x= x -1 
  end if 

next x

This works, but it takes a while, do you know another way to delete things within a range that is quicker?

Thanks for your time,

-Phil