That looks like some of Tom's code... Normally he does not miss much but in
this case... delete the word set from the beginning of

set lastrow = cells(rows.count,1).End(xlup).Row

and you should be off to the races...

HTH


"Josh O." wrote:

I am trying to insert rows into a spreadsheet. I was given the following
macro to accomplish that:
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

When I ran this sub it errors at "set lastrow =" saying there is a Compile
Error.
If I run it from excel, a msg box says "No cells Found". Tom O had me
remove the "set lastrow" line, but now nothing happens when I run the macro.
I replied to the thread yesterday, but I haven't gotten a response. Anyone
know what I can do?

What I am trying to do is add a row after various groups of customer
numbers. The number of similar customer numbers will change each time I run
the report.
This is an example of what I have now:
1
1
2
3
3
3
4
5
5
5
5

This is what I what to get as a result of the macro:
1
1

2

3
3
3

4

5
5
5
5