loop formula

[VbaHell]

Hello all

Can you help on this please

This loop formula start at row 13 and then step through every 5 rows

For p = 13 To 3251 Step 5
    Cells(s, 4).Resize(, 12).FormulaR1C1 = "=IF(R[-2]C="""","""",R[-2]C-R[-1]C)"
Next p

This time I am looking for a loop that starts at row 13 but only in column "P"
inserts a formula in row 13,14,15,16 then misses one row, then populates 18,19,20,21 misses one row Etc until row 3251

This is the formula I want to insert

.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"

 

[mumps]

Try:

Sub test()
    Dim p As Long
    For p = 13 To 3251 Step 5
        Cells(p, 16).Resize(4, 1).FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
    Next p
End Sub

 

[VbaHell]

Thanks mumps spot on

 

[mumps]

You are very welcome.