Hallo, bin VBA Newbie und komme nicht mehr weiter...

Habe eine Tabelle mit Materialnummern und Einkaufszahelen fuer verschiedene Quartale. Nun moechte ich fuer jede Materialnummer (nicht fortlaufend, sondern mit Spruengen dazwischen) die Einkaufszahlen fuer die Quartale addiert ausgeben. Die Tabelle sieht so aus, Spalte A sind die Materialnummern, Spalte B die Quartale und Spalte C die Einkaufszahlen. Mit meinem kleinen Programm werden nun die addierten Werte in den Zeilen ausgegeben, in j ausgegeben in denen j der Materialnummer entspricht. Mein Ziel, die Werte fortlaufend von Zeilen 2 bis x auszugeben nicht wie hier beispielsweise 42 und 47.

Hier mein Code:

Private Sub CommandButton1_Click()

Dim i As Integer
Dim j As Integer
  
    For j = 1 To 100
    For i = 1 To 30
   
 
    If Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 1.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 2.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 3.201 Then
        summe_a = summe_a + Cells(1 + i, 3).Value
        Cells(1 + j, 6).Value = summe_a
        Cells(1 + j, 5).Value = Cells(1 + i, 1).Value
  
    ElseIf Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 4.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 5.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 6.201 Then
        summe_b = summe_b + Cells(1 + i, 3).Value
        Cells(1 + j, 7).Value = summe_b
        Cells(1 + j, 5).Value = Cells(1 + i, 1).Value

    ElseIf Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 7.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 8.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 9.201 Then
        summe_c = summe_c + Cells(1 + i, 3).Value
        Cells(1 + j, 8).Value = summe_c
        Cells(1 + j, 5).Value = Cells(1 + i, 1).Value

    ElseIf Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 10.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 11.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 12.201 Then
        summe_d = summe_d + Cells(1 + i, 3).Value
        Cells(1 + j, 9).Value = summe_d
        Cells(1 + j, 5).Value = Cells(1 + i, 1).Value

    End If

  
    Next i
    Next j
   
    summe_a = 0
    summe_b = 0
    summe_c = 0
    summe_d = 0
   
  
End Sub 

Vielen Dank!