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