Макрос, который увеличивает значение ячейки А на 1 при изменении ячейки В

Private Sub Worksheet_Change(ByVal Target As Range)
 
 
    'If Target.Address = "$2$4" Then
             
 
  x = Cells(2, 4).Value 'clock
  y = Cells(2, 6).Value 'flag
  
  If x = 1 And y = 1 Then
  
Cells(2, 7).Value = Cells(2, 7).Value + 1
 
Cells(2, 6).Value = 0 'сбросит флаг
 
  
If x = 0 And y = 0 Then
 
Cells(2, 6).Value = 1 'поднять флаг
 
   End If
 
 
 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D2,F2]) Is Nothing Then Exit Sub
    
    If [D2] = 1 And [F2] = 1 Then
       Application.EnableEvents = False
       [G2] = [G2] + 1
       [F2] = 0
       Application.EnableEvents = True
    End If
    '''
End Sub

Private Sub Worksheet_Calculate()
    If [D2] = 1 And [F2] = 1 Then
       'Application.EnableEvents = False '[1]
       [G2] = [G2] + 1
       'Application.EnableEvents = True '[2]
    End If
End Sub

Private Sub CommandButton1_Click()
 
For i = 1 To CInt([counter])
 
'импульс который направлен в ячейку [D2],
'[D2]-ячейка имитирующая вывод CLOCK в модели м/схемы счетчика 133ИЕ5
 
[H17] = 1
[H17] = 0
 
Next i
 
End Sub
 
Private Sub Worksheet_Calculate()
 
    If [D2] = 1 And [F2] = 1 Then
       Application.EnableEvents = False
       [G2] = [G2] + 1
       If [G2] = 16 Then [G2] = 0
       [F2] = 0
       Application.EnableEvents = True
    End If
        
    
    If [D2] = 0 And [F2] = 0 Then
       Application.EnableEvents = False
       [F2] = 1
       Application.EnableEvents = True
    End If
 
End Sub

Private Sub Worksheet_Calculate()
    Dim r1&, r2&, r3&
    r1 = Range("D2")
    r2 = Range("F2")
    
    Application.EnableEvents = False
    If r1 = 1 And r2 = 1 Then
       r3 = Range("G2")
       Range("G2") = IIf(r3 = 15, 0, r3 + 1)
       Range("F2") = 0: r2 = 0
    End If
     
    If r1 = 0 And r2 = 0 Then Range("F2") = 1
    Application.EnableEvents = True
End Sub

dim rClock as range
  set rClock=range("G2")
  rClock = (rClock + 1) Mod 16

Private Sub Worksheet_Calculate()
 
   'Счетчик 133ИЕ7 - 1
   
   
    If [CLK_IE7] = 0 Then
       Application.EnableEvents = False
       [COUNTER_IE7] = [D4_IE7] * 8 + [D3_IE7] * 4 + [D2_IE7] * 2 + [D1_IE7]
       Application.EnableEvents = True
      
    End If
      
End Sub