Deleting rows older than 6 months starting at row 5?

[jmpatrick]

Good morning! I'm using this code that found here on the board:

    Dim i As Long
    Dim lr As Long
    Application.ScreenUpdating = False
    lr = Sheets("Calendar").Range("B" & Rows.Count).End(xlUp).Row
    With Sheets("Calendar")
    For i = lr To 1 Step -1
        If .Cells(i, 2).Value < Date - 183 Then .Cells(i, 2).EntireRow.Delete
    Next
    End With

How do I have it skip the top 4 rows and only scan the dates in column B in row 5 and below?

 

[Marius44]

Hi
If I have understood change For i = lr To 1 Step -1 in For i = lr To 5 Step -1

Bye,
Mario

 

[jmpatrick]

Hi
If I have understood change For i = lr To 1 Step -1 in For i = lr To 5 Step -1

Bye,
Mario

I missed that! Works perfect. Thanks.

 

[Marius44]

Hi
Glad to have been of help

Bye,
Mario