Deleting rows from archived sheet after 730 have passed

[nakiasl]

I have the following code to delete old data from my archived sheets after 730 days have passed, but it is not working. When I use the button nothing happens. I have attached a screen shot of my workbook. I need the button to delete rows, starting at row 4 and moving down the worksheet for an infinite amount of rows, that have a roll off date greater then 730 days. Any help will be greatly appreciated.

Sub DeleteCells()
Dim lr As Long, I As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
lr = Range("D" & Rows.Count).End(xlUp).Row
For I = lr To 1 Step -4
If Range("A" & I).Value <= Date - 730 Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Fluff]

Why are you using Step -4looking at your image it should be -1
Also are you trying to check the dates in col A or col D?

 

[nakiasl]

when it is set to -1 it was deleting everything in row one, which is merged with row two. so it would delete the data that wanted but also delete the heading and the button that I have in rows one and two. I would like to use the dates in column D. if the date in column d is greater then or equal to 730 days, i want it to be deleted when i use the button that i have labeled clean up.

 

[Fluff]

Try

For I = lr To 4 Step -1
   If Range("D" & I).Value <= Date - 730 Then Rows(I).Delete
Next I

 

[nakiasl]

Thank you so much that worked perfectly!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[morkar]

Hello! Is there a way to delete the rows with older dates but leave any rows with blank dates?

 

[Fluff]

Please start a thread of your own for this question. Thanks