Macro issue

[Steved]

Hello from Steved

Please how do I insert a row shift the cursor down one cell copy and then
paste to the above. I got about 10,000 rows to do. Thankyou.

Sub Broken()
Selection.EntireRow.Insert
Range("A61").Select
Selection.Copy
Range("A62").Select
ActiveSheet.Paste
End Sub

[CaptainQuattro]

Try this:


Sub Unbroken()

Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Copy
ActiveCell.PasteSpecial


End Sub

[Steved]

Thankyou CaptainQuattro

"CaptainQuattro" wrote:

>
> Try this:
>
>
> Sub Unbroken()
>
> Selection.EntireRow.Insert
> ActiveCell.Offset(1, 0).Copy
> ActiveCell.PasteSpecial
>
>
> End Sub
>
>
> --
> CaptainQuattro
> ------------------------------------------------------------------------
> CaptainQuattro's Profile: http://www.excelforum.com/member.php...o&userid=32763
> View this thread: http://www.excelforum.com/showthread...hreadid=544940
>
>

[Bob Phillips]

Sub InsertRows()
Dim i As Long

Application.ScreenUpdating = True
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Rows(i).Insert
Rows(i + 1).Copy Cells(i, "A")
Next i
Application.ScreenUpdating = True
End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Steved" <[email protected]> wrote in message
news:[email protected]...
> Thankyou CaptainQuattro
>
> "CaptainQuattro" wrote:
>
> >
> > Try this:
> >
> >
> > Sub Unbroken()
> >
> > Selection.EntireRow.Insert
> > ActiveCell.Offset(1, 0).Copy
> > ActiveCell.PasteSpecial
> >
> >
> > End Sub
> >
> >
> > --
> > CaptainQuattro
> > ------------------------------------------------------------------------
> > CaptainQuattro's Profile:
http://www.excelforum.com/member.php...o&userid=32763
> > View this thread:
http://www.excelforum.com/showthread...hreadid=544940
> >
> >

[Steved]

Thankyou Bob.

"Bob Phillips" wrote:

> Sub InsertRows()
> Dim i As Long
>
> Application.ScreenUpdating = True
> For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
> Rows(i).Insert
> Rows(i + 1).Copy Cells(i, "A")
> Next i
> Application.ScreenUpdating = True
> End Sub
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove xxx from email address if mailing direct)
>
> "Steved" <[email protected]> wrote in message
> news:[email protected]...
> > Thankyou CaptainQuattro
> >
> > "CaptainQuattro" wrote:
> >
> > >
> > > Try this:
> > >
> > >
> > > Sub Unbroken()
> > >
> > > Selection.EntireRow.Insert
> > > ActiveCell.Offset(1, 0).Copy
> > > ActiveCell.PasteSpecial
> > >
> > >
> > > End Sub
> > >
> > >
> > > --
> > > CaptainQuattro
> > > ------------------------------------------------------------------------
> > > CaptainQuattro's Profile:
> http://www.excelforum.com/member.php...o&userid=32763
> > > View this thread:
> http://www.excelforum.com/showthread...hreadid=544940
> > >
> > >
>
>
>