Excel VisualBasic Script

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