Tiffany

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


Gord Dibben Excel MVP

On Fri, 20 Aug 2004 15:02:34 -0500, tratliff
wrote:

I have a range of @ 8000 rows. This range contains data for different
customers. Each customer can and will appear on more than one row.

What i want is to insert 6 blank rows when a new customer begins.

Hope this makes sense!

Please help!!

Thanks.

Tiffany


---
Message posted from http://www.ExcelForum.com/