Macro To Insert Empty Rows??

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, here is one way, with data in column A

Sub Insert_Row()
Application.ScreenUpdating = False
Dim Rng As Range
Dim x As Long
Set Rng = Range("A1:A" & Range("A65536").End(xlUp).Row)
For x = Rng.Rows.Count To 2 Step -1
If Rng.Cells(x, 1).Offset(-1, 0).Value <> Rng.Cells(x, 1).Value Then
Rng.Cells(x, 1).Resize(1, 1).EntireRow.Insert Shift:=xlDown
End If
Next x
Application.ScreenUpdating = True
End Sub

"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=508117
>