Sub ABC()
Dim lastrow as Long, i as Long
set lastrow = cells(rows.count,1).End(xlup).Row
for i = lastrow to 2 step -1
if cells(i,1) < cells(i-1,1) then
rows(i).Insert
end if
Next
End Sub

--
Regards,
Tom Ogilvy


"Josh O." wrote in message
...
I have a sheet that contains rows with customer numbers:
847300001
847300001
847300020
847300015
847300015
847300015
847300002...

What I need to do is a blank row after each groups of numbers:
847300001
847300001

847300020

847300015
847300015
847300015

847300002...

The numbers will change each time I run the report. Any way I can do
this?