Creating blank rows between different values in a column

**MadCrammer** · 03-09-2010, 09:54 AM

I am trying to create a simple macro that looks at a specific column, starts at row 1 and inserts a blank row whenever a new value appears below it.

For example, if column B looked like this:

SERPO <--Row 1
SERPO
SERPO
TACOMA
TACOMA
TACOMA
CINCINNATI
CINCINNATI
HOPKINS
HOPKINS
HOPKINS

The macro would insert a row between serpo and tacoma, tacoma and cincinnati, etc. like this:

SERPO
SERPO
SERPO

TACOMA
TACOMA
TACOMA

CINCINNATI
CINCINNATI

HOPKINS
HOPKINS
HOPKINS

I'm really only familiar with using the macro recorder, so I didn't know of a way to do this. I have to do this daily and there are usually 30+ different values and 4000+ lines so I'm trying to create a time saver.

**JeanRage** · 03-09-2010, 10:14 AM

Hi,

You could test following for column B ...

Sub insertblankrow()
Dim fr As Long
Dim i As Long
fr = Cells(Rows.Count, 2).End(xlUp).Row
For i = fr To 2 Step -1
If Cells(i, 2).Value <> Cells(i - 1, 2).Value Then Rows(i).Insert
Next i
End Sub

HTH