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