Wert aus Zelle nehmen, addieren, zurückschreiben - Fehler

Sub Summe()
Dim XWert1 As Long
Dim XWert2 As Long
Dim YStart As Long
Dim YEnde As Long
XWert1 = 1                                      'Spaltennr. der ersten Spalte mit Werten
XWert2 = 2                                      'Spaltennr. der zweiten Spalte mit Werten
YStart = 1                                      'Zeile, in der die Tabelle startet
YEnde = Cells(YStart, XWert1).End(xlDown).Row   'Zeile, in der die Tabelle endet
For i = YStart To YEnde                            'Schleife von Start bis Ende der Tabelle
Cells(i, XWert1).Value = Cells(i, XWert1).Value + Cells(i, XWert2).Value 'Summenbildung
Next
End Sub