Attribute VB_Name = "testcell4"
Sub ƒeƒXƒg()
    
    Dim i As Integer
    
    For i = 2 To 4
        Cells(5, i).FormulaR1C1 = "=Sum(R[-3]C:R[-1]C)"
    Next i
        
End Sub