Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u_01 = Target.Row
    u_02 = Range("aw" & u_01).Value
    u_03 = Range("bn1").Value
    u_04 = Cells(Rows.Count, "aw").End(xlUp).Row
    u_05 = Target.Column
    u_21 = Application.Match(u_03, Range("aw10:aw" & u_04), 0)
    u_22 = Application.IsNA(u_21)
    If u_22 And u_01 > 9 And u_05 > 49 Then
        Range("bn1").Select
    Else
        If u_02 <> u_03 And u_01 > 9 And u_05 > 49 Then
            u_06 = Application.Match(u_03, Range("aw" & u_01 + 1 & ":aw" & u_04), 0)
            u_07 = Application.IsNumber(u_06)
            If u_07 Then
                Cells(u_01 + u_06, u_05).Select
            Else
                u_08 = Application.Match(u_03, Range("aw1:aw" & u_04), 0)
                Cells(u_08, u_05).Select
            End If
        End If
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    u_04 = Cells(Rows.Count, "aw").End(xlUp).Row
    If Not Intersect(Target, Range("ax10:bm" & u_04)) Is Nothing Then
        Target.Offset(0, 1).Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
    Set r = Range("A" & Cells(Rows.Count, 49).End(xlUp).Row & ":BM1")
    If Not Intersect(Target, r) Is Nothing Then
        If Target.Row < 10 Or Target.Column < 50 Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
        Else
            If Cells(Target.Row, 49) <> Cells(1, 66) Then
                Application.EnableEvents = False
                Application.Undo
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Range("A" & Cells(Rows.Count, 49).End(xlUp).Row & ":BM1")
If Not Intersect(Target, r) Is Nothing Then
If Target.Row < 10 Or Target.Column < 50 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Else
If Cells(Target.Row, 49) <> Cells(1, 66) Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End If
End Sub

    Dim spl, fl As Boolean
    spl = Split(Cells(1, 66), ",")
    For i = LBound(spl) To UBound(spl)
        If Cells(Target.Row, 49) = Trim(spl(i)) Then fl = True: Exit For
    Next
    If Not fl Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If

Dim spl, fl As Boolean
    spl = Split(Cells(Target.Row, 49), ",")
    For i = LBound(spl) To UBound(spl)
        If Cells(1, 66) = Trim(spl(i)) Then fl = True: Exit For
    Next
    If Not fl Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If