[A1:D1000000]

If allowedToSpace Is Nothing Then Set allowedToSpace = UNION([B:B],[D:D],[F:F])

           If Target.Column = 6 Then 
                With Target
                    .Interior.ColorIndex = 15
                    .Value = "YES"
                End With
                With Range(Target.Offset(0, -1), Target.Offset(0, 1))
                    .Value = "Not"
                    .Interior.ColorIndex = xlNone
                End With
            End If

   Application.EnableEvents = True
    End If
End Sub

...
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Работаем в диапазоне из трех колонок E, F, G
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Range("E2:E100, F2:F100, G2:G100")) Is Nothing Then
        Application.EnableEvents = False 'Отключили события, иначе вызываем рекурсию

        If Target.Value = 1 Then 'Проверяем содержимое ячейки, если единица, то...
            If Target.Column = 5 Then 'Проверяем номер колонки, если пять, то...
                With Target
                    .Interior.ColorIndex = 15
                    .Value = "YES"
                End With
                With Range(Target.Offset(0, 1), Target.Offset(0, 2))
                    .Value = "Not"
                    .Interior.ColorIndex = xlNone
                End With
            End If
        End If
    End If
     Application.EnableEvents = true 'Включили события, иначе вызываем рекурсию <--- Добавлено Ю.М.
End Sub