Rows Insertion

[b166er]

hi members
how can I insert rows after every fiftth row I have data of more than 6000 rows that means I want to insert 2000 rows in that sequence

[Nigel]

Change reference to sheet to suit and I used column A to determine extent of
rows to act upon

Sub InRows()
Dim lr As Long, cr As Long

With Sheets("Sheet1")
lr = .Cells(.Rows.Count, 1).End(xlUp).Row
For cr = lr To 5 Step -5
Rows(cr).Insert
Next cr
End With
End Sub

--
Cheers
Nigel



"b166er" <[email protected]> wrote in
message news:[email protected]...
>
> hi members
> how can I insert rows after every fiftth row I have data of more than
> 6000 rows that means I want to insert 2000 rows in that sequence
>
>
> --
> b166er
> ------------------------------------------------------------------------
> b166er's Profile:
> http://www.excelforum.com/member.php...o&userid=34912
> View this thread: http://www.excelforum.com/showthread...hreadid=554572
>