Rashid

Can you live with a macro?

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(2, 1).EntireRow.Insert
Next i
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub

Assumes vendors names are in column A.


Gord Dibben Excel MVP

On 27 Apr 2005 07:16:54 -0700, (Rashid) wrote:

Hi All,

I have a big Excel report that I run on a daily basis. My boss wants
me to insert 2 blank rows after every name change in vendors_name
coloumn. The idea is to seperate vendors so it is easy for him to
review the report.

How can this be done?

Please help, it is very important.

Thanks,

Rashid