calcolo combinazioni

Sub Combina()
Dim a, b, c, d, e, f, rg, Cc
rg = 1
Cc = 2
Columns("B:XFD") = ""
    diff = ""
    Iniz = Time
Application.Calculation = xlCalculationManual
For a = 1 To 85
For b = a + 1 To 86
    For c = b + 1 To 87
        For d = c + 1 To 88
            For e = d + 1 To 89
                For f = e + 1 To 90
If rg > 1048576 Then
    Cc = Cc + 1
    rg = 1
    '.........Al Msg, premere CTRL+ALT+Pause Stamp/Fine per fermare
    MsgBox "Inizio nuova colonna "
End If
Cells(rg, Cc) = Cells(a, 1) & "-" & Cells(b, 1) & "-" & Cells(c, 1) & "-" & Cells(d, 1) & "-" & Cells(e, 1) & "-" & Cells(f, 1)
rg = rg + 1
                Next
            Next
        Next
    Next
Next
Next
Application.Calculation = xlCalculationAutomatic
  Fine = Time
    diff = Format(Fine - Iniz, "hh:mm:ss")
    MsgBox ("Tempo impiegato   " & diff)
End Sub