VBA Copy & Paste Vertical Range Every X Number of Rows

[JAS2120]

Hello!

I have a spreadsheet with formulas in range D3:D18.

I would like to paste these formulas (,Paste:=xlPasteFormulas) skipping one row in between each paste.

For example: I would like to copy the formulas in range D3:D18 to D:20:D35, D:37-D:52 all the way down column D (with the last range being D:1023-D:1038).

I would greatly appreciate any help as I haven't been able to get anything to work! Thanks in advance!

 

[steve the fish]

Heres a loop that would do that. You may wish to clear the cells first in case of any residual formulas.

    Range("D3:D18").Copy
    For i = 20 To 1023 Step 17
        Cells(i, 4).PasteSpecial xlPasteFormulas
    Next