Add a row

[skooter2k5]

Hi,
I have searched the forum but nothing I have found does exactly what I need it to.

I need a macro that will add a row between two cells if they are not identical.
Here's the best way I can explain it.

If A1 is not equal to A2, then insert a row between them. If A1 is equal to A2 then do nothing.
If A2 is not equal to A3, then insert a row between them. If A2 is equal to A3 then do nothing.
If A3 is not equal to A4, then insert a row between them. If A3 is equal to A4 then do nothing.

This formula needs to keep going until it reaches A500.

Please help.

[sweep]

How's this for you?

Sub versive()
Dim iRow As Integer

For iRow = 500 To 2 Step -1
If Not Range("A" & iRow).Value = Range("A" & iRow - 1).Value Then Range("A" & iRow).EntireRow.Insert
Next

End Sub