Warum akzeptiert Excel keine zwei Makros

Private Sub Worksheet_Change1(ByVal Target As Range)
Dim xWks As Worksheet
Dim Sumnme As Double
Dim y
Dim i As Integer
Dim J As Integer
If Target.Address <> "$E$1" Then
Exit Sub
End If
Application.EnableEvents = False
Set xWks = ThisWorkbook.Worksheets(1)
y = xWks.Cells(1, 5).Value
If y > 0 And y < 53 And IsNumeric(y) Then
For i = 4 To 15
Summe = 0
For J = 0 To y - 1
Summe = Summe + xWks.Cells(i, 16 + 3 * J).Value
Next J
Cells(i, 13).Value = Summe
Next i
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xWks As Worksheet
Set xWks = ThisWorkbook.Worksheets(1)
y = xWks.Cells(1, 5)
If y > 0 And y < 53 And IsNumeric(y) And Target.Address = "$E$1" Then
For i = 4 To 15
xWks.Cells(i, 15 + 3 * y).Value = xWks.Cells(i, 14).Value
Next i
End If
End Sub