Permutaciones de cuatro Digitos

[MarioVePe]

Navegando en el foro encontré que uno de los miembros publico un macro que podemos pegar en excel, este sirve para obtener los resultados posibles de 2 columnas...
Pero yo necesito modificarlo para que me de la cobinacion de 4 columnas.
Alguien me puede ayudar...



Sub ComoSeaQueSeLlame()
Dim ii As Long, jj As Long
Application.ScreenUpdating = False
[d2:e65536].Delete xlShiftUp
For ii = 1 To [a65536].End(xlUp).Row
For jj = 1 To [b65536].End(xlUp).Row
[d65536].End(xlUp).Offset(1) = Cells(ii, "a")
[d65536].End(xlUp).Offset(, 1) = Cells(jj, "b")
Next jj
Next ii
Application.ScreenUpdating = True
End Sub

Gracias...
o si ustedes pueden ayudarme de alguna otra manera????
Ejemplo
Las permutaciones que se pueden haer entre

20 20 20 20
21 21 21 21
22 22 22 22
23 23 23 23
24 24 24 24

..
Gracias!!!