VBA insert blank row until set row

[EMcK01]

Hi,

I think this is straightforward, how do I stop the following code when it gets to row 5

Sub InsertBlankRows2()

    Dim LR As Long, i As Long
    LR = Range("J" & Rows.Count).End(xlUp).Row
    For i = LR To 2 Step -1
                If Range("J" & i).Value <> Range("J" & i - 1).Value Then Rows(i).Resize(3).EntireRow.Insert
    Next i
End Sub

Thanks

 

[Joe4]

Change this:

    For i = LR To 2 Step -1

to this:

    For i = LR To 5 Step -1

Note what it is doing. It is going through the rows backwards, starting with the last row and working its way up.
So that number if the row number to stop at.

 

[EMcK01]

Perfect, thank you. I thought it was something straight forward but couldn't get it earlier.

 

[Joe4]

You are welcome.
I hope that it makes sense, based on my explanation.

When inserting or deleting rows, it is usually best to loop through the rows backwards to avoid duplicating or missing rows (as you are changing the number of rows while you are trying to loop through them).