Sub formal() Dim formulaString As String formulaString = "=SUM($A$2:$A$10)" Cells(11, "A").Formula = formulaString End Sub