Sub RunMe() Dim x, dRow, Counter As Integer Counter = InputBox("How many times would you like to paste?:") dRow = 7 Range("A2:A6").Copy For x = 1 To Counter Range("A" & dRow).PasteSpecial dRow = dRow + 5 Next x Application.CutCopyMode = False End Sub
Thanks for the Help. Works like a champ.
I need to stop the code after 200 rows(40 times to copy A1:A5). Please help.
For that a few minor changes are needed:
Best regards,
Trowa
Sorry for the delayed response. I was on field visit. Thank you very much. this is what I really need. Once again thank you for your time and help.