Find Date and Delete

[Agent86]

I have a list of dates that are sorted in ascending order. How can I write a code that will find the cell in the list that is the first one to exceed today's date, and delete all rows after it?

 

[MichaelRo]

Try This:

Sub DeleteRows()

Dim Rge As Range

On Error GoTo ErrTrp

'Assuming Date's are in column A:
Set Rge = Cells.Find(What:=Date + 1, After:=Range("A1"))

Range(Rge, Range("A65536").End(xlUp)).EntireRow.Delete

Exit Sub

ErrTrp:
MsgBox "Data Does not Exist", vbOKOnly

End Sub