Inserting Rows into sets of Sequential data

[wills3rd]

I have a large list of data that appears in sequential blocks - mostly pairs and triplicates. I need to create a macro that inserts a blank line between each sequantial set. For example: if the list were 1,2,5,6,7,9,10,12 I would need to insert lines between 2 and 5, 7 and 9 and 10 and 12.

Could you please help me to do this? Thank you.

 

[pgc01]

HI wills3rd
Welcomr to the board

Assuming the data in Sheet2 in column A starting in A1:

Sub InsertBlanks()
Dim lRow As Long, lLastRow As Long

With Worksheets("Sheet2")
    lLastRow = .Range("A" & .Rows.Count).End(xlUp).Row

    For lRow = lLastRow To 2 Step -1
        If .Range("A" & lRow).Value <> .Range("A" & lRow - 1).Value + 1 Then
            .Rows(lRow).Insert
            lRow = lRow - 1
        End If
    Next
End With
End Sub

Hope this helps
PGC

 

[wills3rd]

Thank you

Thanks, PGC.

That works perfectly.