Insert Blank line after change in cell data

[bradjedis]

Greetings,

I have a need to insert a blank row when cell content changes.

data begins in A2. When the cell content changes in col A, insert blank row after last item.

Col A

1234
1234
1234
2345

Row to be inserted after the last 1234. Need to structure thru list, which will vary over time

Thanks!

[HansV]

Run this macro:

Code: Select all

Sub InsertRows()
    Dim r As Long
    Dim m As Long
    Application.ScreenUpdating = False
    m = Range("A" & Rows.Count).End(xlUp).Row
    For r = m To 3 Step -1
        If Range("A" & r).Value <> Range("A" & r - 1).Value Then
            Range("A" & r).EntireRow.Insert
        End If
    Next r
    Application.ScreenUpdating = True
End Sub

[bradjedis]

Perfect! Than you....