Private Sub CommandButton1_Click()

  Dim i, j, Summa As Integer

  i = 2: j = 3: Summa = 0


  Do While Лист2.Range("A" & i).Value <> ""

    Do While Лист1.Range("A" & j).Value <> ""

      If Лист2.Range("A" & i).Value = Лист1.Range("A" & j).Value Then

        Summa = Summa + Лист1.Range("C" & j).Value

      End If

      j = j + 1

    Loop

    Лист2.Range("B" & i).Value = Summa

    Summa = 0

    j = 3

    i = i + 1

  Loop

End Sub