Kombinatorik Makro erweitern

Hi,
Ich bin leider am verzweifeln. Deswegen brauche ich bitte Eure Unterstützung.
Folgender cod erstellt aus neun beliebigen Werten welche in B1:B9 Aufgeführt werden alle daraus resultierenden Kombinationen.
Leider langen mir die neun Variablen Werte nicht mehr aus und ich würde das Marco gerne erweitern.
A/ kann mir jemand bitte auf die Sprünge helfen was ich ändern müsste um z.B. die Kombinationen _
für 24 Variablen zu erhalten. Ich habe natürlich mit meinen LeihenhaftenVBA Kenntnissen herum _
experimentiert aber komme zu keinem befriedigenden Ergebnis.

Sub Kombi()
Dim varZahl(8) As Variant
Dim loA As Long
Dim loB As Long
Dim loC As Long
Dim loD As Long
Dim loE As Long
Dim loF As Long
Dim loG As Long
Dim loK As Long
Dim loJ As Long
loG = 3
loK = 1
loJ = 5
For loA = 0 To 8
varZahl(loA) = Cells(loA + 1, 2)
Next
For loA = 0 To loG
For loB = loA + 1 To loG + 1
For loC = loB + 1 To loG + 2
For loD = loC + 1 To loG + 3
For loE = loD + 1 To loG + 4
For loF = loE + 1 To 8
Cells(loK, loJ) = varZahl(loA)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loB)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loC)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loD)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loE)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loF)
loK = loK + 1
loJ = 5
Next
Next
Next
Next
Next
Next
End Sub