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
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
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
>
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks