Sub AplusBautomatic()

On Error GoTo errormsg

    y = 1
        For x = 1 To 10

            Cells(x, 3) = Cells(x, y) + Cells(x, y + 1)
        Next

    GoTo ending

errormsg:
    MsgBox ("There was an error")

ending:
End Sub