Macro To Insert Blank Row?

anyone a dab hand at Excel? I need a had creating a macro. What i have is a column with numbers, for example

12222
12222
21111
21111
13333
13333

what i need is a macro which will insert a blank row after an identical sequence of numbers, turning the above into

12222
12222

21111
21111

13333
13333


any ideas?

try this. the key is working from the bottom up instead of the top down.

Sub insertrowifnotminusonerow()
lr = Cells(Rows.Count, "c").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i - 1, "c") <> Cells(i, "c") Then Rows(i).Insert
Next i
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"rtidrtid" <[email protected]> wrote in
message news:[email protected]...
>
> anyone a dab hand at Excel? I need a had creating a macro. What i have
> is a column with numbers, for example
>
> 12222
> 12222
> 21111
> 21111
> 13333
> 13333
>
> what i need is a macro which will insert a blank row after an identical
> sequence of numbers, turning the above into
>
> 12222
> 12222
>
> 21111
> 21111
>
> 13333
> 13333
>
>
> any ideas?
>
>
> --
> rtidrtid
> ------------------------------------------------------------------------
> rtidrtid's Profile:
> http://www.excelforum.com/member.php...o&userid=31148
> View this thread: http://www.excelforum.com/showthread...hreadid=508130
>