hi hru48

try this.

Sub CountSum()
Dim colE As Double
colE = Cells(Rows.Count, "E").End(xlUp).Row
Range("G3:g" & colE).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
End Sub
regards yngve