Code VBA aanpassen loopt fout

[Drieband]

Ik heb de code uit blad 2 overgeplaatst naar blad(wedstrijdblad),nu probeer ik deze aan te passen zodat hij werkt voor dit blad.
Al doende leert men zeggen ze,maar kom er toch even niet uit.Wat moet er dan nog aangepast worden?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng1 As Range
Dim Rng2 As Range
    On Error Resume Next
    If Target.Column >= 4 Then
        Set Rng1 = Range(Cells(7, Target.Column - 2), Cells(26, Target.Column - 2))
        Set Rng2 = Range(Cells(7, Target.Column), Cells(26, Target.Column))
    End If
    If Target.Row = 26 And Abs(Target.Column + 2) Mod 6 = 0 Then
        Rng1.Locked = True
        Rng2.Locked = True
        Application.Goto Cells(7, Target.Column + 5)
    ElseIf Abs(Target.Column + 2) Mod 6 = 0 Then
        If WorksheetFunction.Max(Rng1.Offset(0, 1)) >= Cells(1, Rng1.Column) Or WorksheetFunction.Max(Rng2.Offset(0, 1)) >= Cells(1, Rng2.Column) Then
            Rng1.Locked = True
            Rng2.Locked = True
            Application.Goto Cells(7, Target.Column + 5)
        Else
            Application.Goto Cells(Target.Row + 1, Target.Column - 2)
        End If
    Else
         Application.Goto Cells(Target.Row, Target.Column + 2)
    End If

End Sub