Sub test()
Dim i&, j&, k&, l&, n&
ReDim v&(1 To 45)
ReDim z&(1 To WorksheetFunction.Combin(10, 4), 3)
For i = 1 To UBound(v): v(i) = i: Next
Randomize
For i = UBound(v) To 2 Step -1
j = v(i): v(i) = v(1 + Int(i * Rnd)): v(1 + Int(i * Rnd(0))) = j
Next
For i = 1 To 7
For j = i + 1 To 8
For k = j + 1 To 9
For l = k + 1 To 10
n = n + 1
z(n, 0) = v(i)
z(n, 1) = v(j)
z(n, 2) = v(k)
z(n, 3) = v(l)
Next l, k, j, i
Application.Calculation = xlCalculationManual
Range("G1:P1").Value = v
Range("G5").Resize(UBound(z, 1), 4).Value = z
Application.Calculation = xlCalculationAutomatic
End Sub