Insert a blank row after change in data
 

Thanks Max, that did the trick. I was concerned because I actually needed
the function to START at row 10 - not end at row ten. But perhaps I don't
understand the coding language because it did start work - starting at row 10
where my data starts. Thanks again.

"Max" wrote:

Came across a sub below by a poster in .programming
Modified a little to end at row 10 to suit.
Try it on a spare copy ..

Sub InsertRow_At_Change()
Dim i As Long
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
For i = Cells(Rows.Count, 2).End(xlUp).Row To 10 Step -1
If Cells(i - 1, 2) < Cells(i, 2) Then _
Cells(i, 1).Resize(1, 1).EntireRow.Insert
Next i
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Genghis2k3" wrote:
I have a spreadsheet with 300 rows of data and I need a macro that will
insert a blank row after a change in the data in column B. The data starts
in row 10. Thanks for your help.

Insert a blank row after change in data
 

Glad it worked out ok for you.

I described it as: .. end at row 10
because the sub works from the last row in the col upwards ... to row10
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Genghis2k3" wrote:
Thanks Max, that did the trick. I was concerned because I actually needed
the function to START at row 10 - not end at row ten. But perhaps I don't
understand the coding language because it did start work - starting at row 10
where my data starts. Thanks again.