Need to have 2 worksheet selection.change rules in 1 worksheet

OK. so attached is a file that when cells in column F and G are clicked in - they auto populate with "NA" and "U". now this is all working fine - EXCEPT for the fact that rows 387-391 need to populate with a "y" and "n" respectively. now i can actually see when i click on the cell - the Y or N populates and then it changes to "NA" and "U". i am attaching the file. all the code is on the sheet "fresh thinking audit".

if someone could PLEASE see what i have to do to not have two codes run on the same cells i would be so grateful!!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyStr As String, MyVal As String, x As Long
Dim y As Integer
Dim i As Integer

If Target.Interior.ColorIndex = 1 Then Exit Sub    'for black cell color
If Target.Interior.ColorIndex = 40 Then Exit Sub   'for service at top of sheet




If Not Intersect(Target, Range("G387:G391")) Is Nothing And Target.Cells.Count = 1 Then
    If Target.Value <> "" Then
        Target.Value = ""
        Exit Sub
    Else
        Target.Value = "N"
    End If
End If
If Not Intersect(Target, Range("F387:F391")) Is Nothing And Target.Cells.Count = 1 Then
    If Target.Value <> "" Then
        Target.Value = ""
        Exit Sub
    Else
        Target.Value = "Y"
    End If
End If


On Error Resume Next
Application.EnableEvents = False

If Target.Address = "$C$8" Then
    Target = Date
    Target.NumberFormat = "mm/dd/yyyy"
ElseIf Target.Address = "$H$8" Then
    Target = Time
    Target.NumberFormat = "hh:mm"
ElseIf (Target.Row > 24) And (Target.Row < 392) Then

        Select Case Target.Column
            Case 6
                MyStr = "NA"
            Case 7
                MyStr = "U"
            Case Else
                MyStr = ""
        End Select
    
        If Len(MyStr) > 0 Then
            If InStr(Range("B" & Target.Row), "Speed of Service") = 0 Then
                If Target = MyStr Then
                    If Target.Interior.ColorIndex = 15 Then
                        y = 1
                        MyVal = ""
                        While Target.Offset(y).Interior.ColorIndex = -4142
                            If Target.Offset(y) = "" Then
                                MyVal = MyStr
                            End If
                            y = y + 1
                        Wend
                        y = y - 1
                        
                        'If Target.Offset(2) = MyStr Then MyVal = "" Else MyVal = MyStr
                        
                        'x = 1
                        If Not (MyStr = "U") Then
                         '   Do While Range("B" & Target.Row + x).Interior.ColorIndex = 2 Or Range("B" & Target.Row + x).Interior.ColorIndex = -4142
                         '       If Len(Range("B" & Target.Row + x)) > 0 Then Target.Offset(x) = MyVal
                         '       x = x + 1
                         '   Loop
                            For x = 1 To y
                               Target.Offset(x) = MyVal
                            Next x
                        End If
                    ElseIf Target.Interior.ColorIndex <> 15 Then
                        
                        If MyStr = "U" Then
                            For i = 1 To WorksheetFunction.CountA(Sheets("sheet1").Range("a:a"))
                                If Sheets("sheet1").Range("a" & i) = Target.Row Then
                                    Sheets("sheet1").Range(i & ":" & i).Delete
                                    i = i - 1
                                End If
                            Next i
                        End If
                        Target = ""
                    End If
                Else
                    If Target.Value = MyStr Then
                        Target = ""
                    Else
                        If Range("B" & Target.Row + x).Interior.ColorIndex = 2 Or Range("B" & Target.Row + x).Interior.ColorIndex = -4142 Then
                            If Len(Range("B" & Target.Row + x)) > 0 Then
                                If MyStr = "U" Then
                                    i = WorksheetFunction.CountA(Sheets("sheet1").Range("a:a")) + 6
                                    Sheets("sheet1").Range("a" & i) = Range("a" & Target.Row)
                                    Sheets("sheet1").Range("b" & i) = Range("b" & Target.Row)
                                End If
                                Target = MyStr
                                
                                End If
                            End If
                        End If
                    End If
                End If
        End If
        If (Target.Column = 7) And (Target = "U") And (Range("J" & Target.Row) = "x") Then
            Sheets("sheet4").Range("b" & WorksheetFunction.CountA(Sheets("sheet4").Range("b:b")) + 11) = Range("B" & Target.Row).Value
            'Sheets("Sheet4").Range("A" & Rows.Count).End(xlUp).End(xlUp).Offset(2).Value = Range("B" & Target.Row).Value
        End If
End If

ErrorExit:
    Application.EnableEvents = True
End Sub

would adding an Exit Sub after you set your Target.Value = "N" mess you up? same for the "Y"

Hi WinWall --- have you tried what I put in Post #2?....

In the Worksheet_SelectionChange()....change the 392 to 387 in the ElseIf (Target.Row > 24) and (Target.Row < 387)....setting it to 392 allow the other code "NA" and "U" to execute....give it a try

glad I could help....Thanks for setting the thread to Solved...If you feel I deserve an increase in my reputations feel free to click on the star in the lower left of the thread. Remember, someday when you help somebody they may add to your rep points, and it could be me...just a thought...