Separator Rows

[orlando606]

Hello

Is there any chance one of you Excel guru's assist me creating a macro that will sort through this data in column A and insert a separator row creating a grouping of rows with the same numbers? I sorted this manually and it's slightly time consuming.

Thanks in advance.

 

[Joe4]

As long as all the data in column A is sorted/grouped together so that like accounts are all next to each other, this code should do what you want:

Sub InsertBlankRows()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows backwards
    For r = lr To 3 Step -1
'       Check to see if value in column A is different than row above
        If Cells(r, "A").Value <> Cells(r - 1, "A").Value Then
'           Insert blank line
            Rows(r).Insert
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[orlando606]

Joe i can't thank you enough for this code. It worked perfectly. Have a blessed day...

 

[Joe4]

You are welcome.
Glad I was able to help!