Delete Rows Prior to Today

[Papi]

Hello All,

I have a workbook with a filtered header on Row 2 and data from row 3 down to maybe row 500 max. Column A contains dates and Columns B to F contain data. What I need to do is have all rows from Row 3 down delete all the rows noted in Column A that are prior to today leaving today and all dates into the future alone. I'm not sure if this would affect such a deletion but there is a formula in G1 and some text in H1 but no data below G1 and H1.

Any help would be greatly appreciated.

 

[VoG]

Try with a copy of your sheet

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 3 Step -1
    If Range("A" & i).Value < Date Then Rows(i).Delete
Next i
End Sub

 

[Papi]

Hello Peter,

Thank you so much for such a quick and spot on set of results. Great work!