Hello, I want to copy several formulas in a row to the cells beneath them.
I'm using the following code
For i = 3 To 30 Step 3
intAantal = Range("A1").Value + 1
Range(Cells(2, i)).Copy
Range(Cells(3, i), Cells(intAantal, i)).Select
ActiveSheet.Paste
Next i

I get an error message at the line with the Copy text but I don't understand
what I'm doing wrong. Can someone help me out.