More info but a macro using inputbox, find etc

Sub copyrows()'use FIND to find the row
numrows = InputBox("Number of rows") + 1
Rows(ActiveCell.Row).Copy ActiveCell.Resize(numrows)

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"teo410" wrote in message
...
In my spreadsheet, I was wondering if I could set a macro to copy an
entire
row, ask me how many copies of the line I would like to make, and paste
them
underneath the original line. Any help would be greatly appriciated!