Range("G1").Select
ActiveCell.FormulaR1C1 = "3"
Range("G2").Select
ActiveCell.FormulaR1C1 = "7"
Range("G3").Select
ActiveCell.FormulaR1C1 = "6"
Range("G4").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"