Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("g11")) Is Nothing Then
     If [g11] = "ДА" Then [i11] = 0
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
      Dim range_population As Range, range_minions As Range, range_num As Range, range_num_population As Range, range_num_minions As Range, str_yes$, row_start!
      row_start! = 6
      Set range_population = Range("I" & row_start! & ":I" & [A:A].Rows.Count)
      Set range_minions = Range("J" & row_start! & ":J" & [A:A].Rows.Count)
      Set range_num = Range("M" & row_start! & ":P" & [A:A].Rows.Count)
      Set range_num_population = range_num
      Set range_num_minions = Range("M" & row_start! & ":M" & [A:A].Rows.Count)
      str_yes$ = "ДА"
      If ((Not Intersect(Target, range_population) Is Nothing) Or _
         (Not Intersect(Target, range_minions) Is Nothing) Or _
         (Not Intersect(Target, range_num) Is Nothing)) And _
         Target.Count = 1 Then
         With Application: .EnableEvents = False: .ScreenUpdating = False: End With
          If (Not Intersect(Target, range_population) Is Nothing) And (UCase(Target.Value) = str_yes$) Then
              range_minions.Resize(1).Offset(Target.Row - row_start!).Value = Empty
              range_num_population.Resize(1).Offset(Target.Row - row_start!).Value = 0
          ElseIf (Not Intersect(Target, range_minions) Is Nothing) And (UCase(Target.Value) = str_yes$) Then
              range_population.Resize(1).Offset(Target.Row - row_start!).Value = Empty
              range_num_minions.Resize(1).Offset(Target.Row - row_start!).Value = 0
          ElseIf Not Intersect(Target, range_num) Is Nothing Then
              If (UCase(range_population.Resize(1).Offset(Target.Row - row_start!).Value) = str_yes$) Then
                  range_num_population.Resize(1).Offset(Target.Row - row_start!).Value = 0
              ElseIf (UCase(range_minions.Resize(1).Offset(Target.Row - row_start!).Value) = str_yes$) Then
                  range_num_minions.Resize(1).Offset(Target.Row - row_start!).Value = 0
              End If
          End If
          Application.EnableEvents = True
      End If
      Set range_population = Nothing
      Set range_minions = Nothing
      Set range_num = Nothing
      Set range_num_population = Nothing
      Set range_num_minions = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 9 Then
         If Len(Target.Offset(, 1)) Then
             Application.EnableEvents = False
             Application.Undo
             Application.EnableEvents = True
             Exit Sub
         End If
         Target.Offset(, 4).Resize(, 4) = 0
     ElseIf Target.Column = 10 Then
         If Len(Target.Offset(, -1)) Then
             Application.EnableEvents = False
             Application.Undo
             Application.EnableEvents = True
             Exit Sub
         End If
         Target.Offset(, 3) = 0
     End If
End Sub

=J6="ДА"

"0"