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!