Sub r1c1() Dim formulaString As String formulaString = "=R[0]C[-1]+ R[-1]C[0]" Cells(2, "B").FormulaR1C1 = formulaString End Sub