Delete table after certain cell

[adam1230]

Hello,

I need to delete the row and the rest of the rows on my worksheet after a certain cell is found on a row.

I have rows of dates, if the date is older than 9 days then I want to delete the contents of that row and all the rows until the end of the table. I was using the following method but it takes FOREVER because it only deletes each row one at a time and I have hundreds of rows.

For Each cell2 In List2
If cell2 > Date - 9 Then ActiveCell.EntireRow.Delete
Next cell2

I want something like this but obviously something that works in VBA

For Each cell2 In List2
If cell2 > Date - 9 Then (cell2.EntireRow through rows.End).delete
Next cell2

Please help
Thanks in advance,
Adam