Try

Sub insertrows()
For I = Cells(Rows.Count, "c").End(xlUp).Row To 2 Step -1
If Cells(I - 1, "c") < Cells(I, "c") Then Cells(I, "c").Resize(2,
1).EntireRow.Insert
Next I
End Sub

--
Don Guillett
SalesAid Software

"achidsey" (notmorespam) wrote in message
...
Excel Experts,

I have the following code that goes through a column of data in row C,
starting from the bottom of the row, and inserts ONE blank row each time
the
data in cells in Column C changes.

Sub InsertRow()

For i = Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1
If Cells(i - 1, "c") < Cells(i, "c") Then Rows(i).Insert

Next i

End Sub



How would I modify this code to insert TWO blank rows each time the data
in
column C changes.

Thanks,
Alan






--
achidsey