Copy row and paste down N times

[triumpht100]

Hi everyone, new to the forums here and failry green working with VBA in Excel (no formal training). I'm trying to do what I think should be fairly simple but after all my searching, I can't find exactly what I need.

Here's what I'm working with:

- I have data with formulas in row 3 of Sheets.("upload")
- I need to copy that entire row and paste it down with formulas n - 1 times starting with row 4 (row 3 remains as is).
- n = value in cell A1

I appreciate any help...thanks in advance!

 

[mumps]

Try:

Sub copyRows()
    Application.ScreenUpdating = False
    Dim x As Long
    Dim y As Long
    y = 1
    Rows(3).Copy
    For x = 1 To Cells(1, 1).Value - 1
        Rows(3 + y).PasteSpecial xlPasteFormulas
        y = y + 1
    Next x
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[triumpht100]

Wow! Mumps, that's what I call service! Seriously, thank you. It works beautifully. The only thing I made an adjustment for was the n count, for some reason the - 1 portion didn't work (it still copied it down n times instead of n - 1) so I applied the - 1 to the value that gets populated in cell A1.

I'm convinced that I need to take some VBA courses, this stuff is beyond useful. Thanks again!

Xavier

 

[mumps]

My pleasure!

 

[triumpht100]

BTW - thought you should know that it was my mistake when copying over your code, I noticed that I dropped off the -1. So your code in fact worked 100% perfectly! Thanks!

 

[mumps]

Thank you for the feedback.