VBA code to insert entire row if duplicate found

[daveybohh]

Hi there,

I have a list of dates in column A and am trying to write a macro that will start in A2 and check if A2 = A3. If they do match then move down one cell and check if A3 = A4 and so on. If, say A8 does not equal A9 then insert an entire row between A8 and A9. This sub routine should then carry on until a blank cell is reached.

Any help would be greatly appreciated.

Thanks.

 

[VoG]

Try

Sub InsRow()
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 <> Range("A" & i - 1).Value Then Rows(i).Insert
Next i
End Sub

 

[daveybohh]

That has worked a treat - thanks!

Just started out on my VBA journey... but enjoying it so far!

 

[Legacy 173085]

Fantastic!

Sorry to dig up this old thread, but this is just what I want, only I'm wondering how I could adapt it to start at row 4, for example.

Thanks so much