for loops with calculations

[MAMIBUSSOL]

how do I adjust this code to work, variable B is set up as an integer variable

    For A = 3 To 25
        ActiveCell.Offset(A, 0).Value = "=SUM(TRIAL!R[384]C[[COLOR=orange]B[/COLOR]])"
        B = B + 7
    Next A

 

[VoG]

Try

For A = 3 To 25
    ActiveCell.Offset(A, 0).Value = "=SUM(TRIAL!R[384]C[" & B & "])"
    B = B + 7
Next A