VBA Loop formula

[VbaHell]

Hello all

Can I have help please on this loop please.

I want to complete a sumifs statement in cell "D9" and then replicate this every 4 cell down in column "D" until I get to cell "D2597"

Tried to put this together but failed

Dim i As Integer
Range("D9").Select
i = 1
Do Until i > 2597
    Cells(i, 1).Value = .FormulaR1C1 = "=SUMIFS('Data'!C18,'Data'!C[5],R[-1]C[-2],'Data'!C22,Sheet1!R3C4,'Data'!C23,Sheet1!R5C3)"
    i = i + 4
Loop

 

[Fluff]

How about

Dim i As Long
For i = 9 To 2597 Step 4
   Cells(i, 4).FormulaR1C1 = "=SUMIFS('Data'!C18,'Data'!C[5],R[-1]C[-2],'Data'!C22,Sheet1!R3C4,'Data'!C23,Sheet1!R5C3)"
Next i

 

[VbaHell]

Works great Fluff, thanks

 

[Fluff]

Glad to help & thanks for the feedback

 

[VbaHell]

Fluff at the moment this puts the formula in column 4
Is it possible to populate columns 4 to 16 with the same formula please or should I just use this loop 12 times

 

[Fluff]

Try

   Cells(i, 4).Resize(, 12).FormulaR1C1 = "=SUMIFS('Data'!C18,'Data'!C[5],R[-1]C[-2],'Data'!C22,Sheet1!R3C4,'Data'!C23,Sheet1!R5C3)"

 

[VbaHell]

Nice, saves me a lot of time, thanks

 

[Fluff]

Glad to help & thanks for the feedback