You start a new thread not bothering to refer to the original so it makes it
difficult to tell what you want. This looks like something I
provided...?????

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Robin" wrote in message
...
Jim here is the code


Here is the code that copies and inserts the rows:
Sub copyrows()

numrows = InputBox("Number of rows")
'Rows(ActiveCell.Row).Copy ActiveCell.Resize(numrows)
Rows(ActiveCell.Row).Copy
ActiveCell.Resize(numrows).Insert
Application.CutCopyMode = False

End Sub

Thanks!