Inserting Row

[mizunobill]

I have a very large spreadsheet that I need to add rows to. I would think a macro would work but I am kind of new to this. In column A I have a list of account numbers when the number changes I need a new row, is there a way to do this?

Column A
175X105SELK
175X105SELK
20X14KMWA70
20X14KMWA70
225X13KM210
225X13KM210
24X16 FD755
24X16 FD755
25X14SELLICK
25X14SELLICK
25X14SELLICK
25X14SELLICK
25X14SELLICK

 

[njimack]

Sub Insert_rows()
Dim i As Long
Dim Last_Row As Long

Application.ScreenUpdating = False

With Sheets("Sheet1") 'change sheet name as appropriate

    Last_Row = .Range("A" & Rows.Count).End(xlUp).Row
    
    For i = Last_Row To 2 Step -1
    
        If .Cells(i, 1).Value <> .Cells(i - 1, 1).Value Then .Cells(i, 1).EntireRow.Insert
    
    Next i

End With


Application.ScreenUpdating = True

End Sub

 

[Rasm]

If you add

Option Compare text 'Goes in very first line - outside of the sub

then the string comparison is not case sensetive-not sure if that matters