Problem bei Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C:C"), Target) Is Nothing Then Exit Sub
If Target(1).Column = 3 Then   'Spalte E
Application.Goto Cells(Target(1).Row + 1, 1)    'Spalte A
Else
Application.Goto Cells(Target(2).Row, Target(2).Column - 2) '1 Zeile tiefer und 4 nach  _
links
End If
If Intersect(Range("D:D"), Target) Is Nothing Then Exit Sub
If Target(1).Column = 4 Then   'Spalte F
Application.Goto Cells(Target(1).Row + 1, 1)    'Spalte A
Else
Application.Goto Cells(Target(2).Row, Target(2).Column - 4) '1 Zeile tiefer und 4 nach  _
links
End If
If Intersect(Range("E:E"), Target) Is Nothing Then Exit Sub
If Target(1).Column = 5 Then   'Spalte E
Application.Goto Cells(Target(1).Row + 1, 1)    'Spalte A
Else
Application.Goto Cells(Target(2).Row, Target(2).Column - 3) '1 Zeile tiefer und 4 nach  _
links
End If
End Sub