Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
    If Target.Cells.Count > 1 Then Exit Sub
    'Для столбцов C,  М...
    If Not Intersect(Target, Range("C3:C1000, M3:M1000")) Is Nothing Then
        Application.EnableEvents = False
        With Target.Offset(0, -1)
            If Target = "" Then
                .Value = ""
                .Interior.ColorIndex = xlNone
            Else
                Set Rng = Sheets("Остатки").Range("MyRange").Find(what:=Target, LookIn:=xlValues, lookAt:=xlWhole)
                If Not Rng Is Nothing Then
                    .Value = "Есть"
                    .Interior.Color = 5287936
                Else
                    .Value = "Нет"
                    .Interior.ColorIndex = 3
                End If
            End If
        End With
    End If
    'Для возврата (столбцы G, Q...)
    If Not Intersect(Target, Range("G3:G1000, Q3:Q1000")) Is Nothing Then
        Application.EnableEvents = False
        With Target
            Set Rng = Sheets("Остатки").Range("MyRange").Find(what:=Target, LookIn:=xlValues, lookAt:=xlWhole)
                If Not Rng Is Nothing Then
                    .Font.ColorIndex = 1
                Else
                    .Font.ColorIndex = 3
                End If
        End With
    End If
    Application.EnableEvents = True
End Sub