Deine Antwort enthält aber nicht die nötigen Informationen, um auf dieses Ergebnis zu kommen, oder?

50000041 	40000 	150040 	149040 	150040
  	  	  	  	 
  	  	  	  	 
  	  	  	  	 
  	  	  	  	 
50000046 	230558 	300080 	268210 	315770

So?

Private Sub CommandButton1_Click()

Dim i As Integer
Dim j As Integer
Dim k 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 + k, 6).Value = summe_a
        Cells(1 + k, 5).Value = Cells(1 + i, 1).Value
        k=k+1

    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 + k, 7).Value = summe_b
        Cells(1 + k, 5).Value = Cells(1 + i, 1).Value
        k=k+1

    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 + k, 8).Value = summe_c
        Cells(1 + k, 5).Value = Cells(1 + i, 1).Value
        k=k+1

    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 + k, 9).Value = summe_d
        Cells(1 + k, 5).Value = Cells(1 + i, 1).Value
        k=k+1

    End If

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