В VBA:
Sub dural()
MsgBox Application.WorksheetFunction.Sum(5, Range("A1").Value)
End Sub
или, как указывает JNevill:
Sub dural2()
MsgBox Evaluate("SUM(5,A1)")
End Sub
РЕДАКТИРОВАТЬ:
Вот несколько альтернатив:
Sub poiuyt()
MsgBox Application.WorksheetFunction.Sum(5, [A1])
MsgBox 5 + [A1]
End Sub
Чтобы поместить формулу в ячейку, скажем, ячейка B9 , используйте:
Sub PutFormulaInCell()
Range("B9").Formula = "=SUM(5,A1)"
End Sub