>>61
数式を入力したいってこと?
Sub a()
Cells(1, 1).FormulaR1C1 = "=sum(r2c2)"
End Sub