Olá, estou tentando criar uma macro que faça combinações de dezenas de loteria e fiz esse código abaixo. O problema é que a execução dependendo das quantidades de dezenas envolvidas, leva muuuito tempo para executar. Gostaria de uma ajuda p/ desenvolver um jeito mais rapido de combinar essas dezenas. Desde já, grato.

Sub COMBINA()
  Dim m, n, o, p, q As Integer
  For m = 1 To q1
  For n = 1 To q2
  For o = 1 To q3
  For p = 1 To q4
  For q = 1 To q5
    dz1 = Cells(m, 1)
    dz2 = Cells(n, 2)
    dz3 = Cells(o, 3)
    dz4 = Cells(p, 4)
    dz5 = Cells(q, 5)
      If dz1 < dz2 And dz2 < dz3 And dz3 < dz4 And dz4 < dz5 Then
        Cells(i + 1, 7) = dz1 & dz2 & dz3 & dz4 & dz5: i = i + 1
      End If
  Next q
  Next p
  Next o
  Next n
  Next m
End Sub