Автоматическое обновление листа с данными

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim i As Integer, j As Integer
 'Application.Calculate
'If Not Intersect(Target, Range("C2:C21")) Is Nothing Then
        'Application.EnableEvents = False
          
          For j = 1 To Cells(2, 12).Value
          For i = 1 To 20
          
  If Cells(1 + j, 6).Value = Cells(1 + i, 2).Value Then
  If Cells(1 + i, 1).Value <> 0 Then
 Cells(1 + j, 5).Value = Cells(1 + j, 5).Value + Cells(1 + i, 1).Value
 Cells(1 + i, 1).Value = 0
 End If
 End If
 Next
 Next
       'Application.EnableEvents = True
   'End If
    
    
  ' If Not Intersect(Target, Range("A2:A21")) Is Nothing Then
   '    Application.EnableEvents = False
          For i = 1 To 20
          For j = 1 To Cells(2, 12).Value
  If Cells(1 + j, 6).Value = Cells(1 + i, 2).Value Then
  If Cells(1 + i, 3).Value <> 0 Then
 Cells(1 + j, 7).Value = Cells(1 + j, 7).Value + Cells(1 + i, 3).Value
 Cells(1 + i, 3).Value = 0
 End If
 End If
 Next
 Next
   'Application.EnableEvents = True
   'End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Zena As Range, Smech&, SmechPoisk&
    With Target
        If .Column > 3 Or .Column = 2 Or .Row = 1 Then Exit Sub
        SmechPoisk = IIf(.Column < 2, 1, -1)
        Set Zena = Range("F2:F92").Find(.Offset(0, SmechPoisk).Value)
        If Not Zena Is Nothing Then
            Smech = IIf(.Column < 2, -1, 1)
            Zena.Offset(0, Smech) = Zena.Offset(0, Smech) + .Value
            'åñëè íàäî î÷èùàòü ÿ÷åéêó ðàñêîììåíòèðóéòå íèæå ñòðîêè
            'Application.EnableEvents = False
            '.Value = 0
            'Application.EnableEvents = True
        End If
    End With
End Sub