Onur ! Kannste mal gucken?!

Hallo Excel / VBA Experten,

vor kurzen habe ich von Onur ein Makro geschrieben bekommen, Mit dem in einer formatierten Tabelle in den Titeln 1 bis 40 die kleinsten 5 Summen (pro Spalte + 5 Spalten) ermittelt werden.
Große Klasse!

Dim StartTitel As Integer
Dim EndTitel As Integer
Dim Summe As Double
Dim MinSumme(1 To 5) As Double
Dim TitelMitMinSumme(1 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim StartZelle As Range
StartTitel = 1
EndTitel = 40

For j = 1 To 5
    MinSumme(j) = 1E+100
Next j

Set StartZelle = Worksheets("Scalping").ListObjects("tab_Scalping").ListColumns(7).Range

For Titel = StartTitel To EndTitel
    Summe = WorksheetFunction.Sum(StartZelle.Resize(, 6)) ' die 6 = bis einschließlich 5 folgende

    For i = 1 To 5
        If Summe  MinSumme(i) Then
            For k = 5 To i + 1 Step -1
                MinSumme(k) = MinSumme(k - 1)
                TitelMitMinSumme(k) = TitelMitMinSumme(k - 1)
            Next k
            MinSumme(i) = Summe
            TitelMitMinSumme(i) = Titel
            Exit For
        End If
    Next i

    Set StartZelle = StartZelle.Offset(0, 1)
Next Titel

For i = 1 To 5
    Worksheets("Listen").Cells(i + 3, "AH").Value = TitelMitMinSumme(i)
    Worksheets("Listen").Cells(i + 3, "AI").Value = MinSumme(i)
    Worksheets("Listen").Cells(i + 3, "AJ").Value = MinSumme(i) / 40
Next i
End Sub