[RISOLTO] Velocizzare elaborazione VBA

Option Explicit
Sub Mario()
'Algoritmo alternativo per l'enumerazione di combinazioni, che nel caso del Totocalcio si chiamano Disposizioni con Ripetizione: 3^partite
Dim a As Long, b As Long, c As Long, i As Long, j As Long, k As Long, p As Long, q As Long, r As Long
Dim st(2) As String, se(2) As Long, t As Single
Dim oArr, depos As Range, col As Long, segni As Long
Range("D:P").ClearContents
st(0) = "1": st(1) = "X": st(2) = "2"
se(0) = 1: se(1) = 2: se(2) = 3
Range("D:F").ClearContents
r = Range("A3") 'partite richieste
q = 3 ^ r 'colonne che saranno sviluppate
p = 0: While 3 ^ p < q: p = p + 1: Wend

'sviluppo ternario
'algoritmo universale semplice al posto di numerosi cicli FOR
Application.ScreenUpdating = False
'ReDim se(0 To q - 1, 0 To 2)'se inserisco questa linea e quello piu sotto si incasina il tutto
ReDim oArr(0 To q - 1, 0 To p - 1) 'matrice
Set depos = Range("D1") 'posizione di scrittura
t = Timer
For i = 0 To q - 1: k = i
For j = p - 1 To 0 Step -1
oArr(i, j) = st(k Mod 3) 'assegna alla matrice
k = k \ 3
Next
Next
depos.Resize(q, p) = oArr
Application.ScreenUpdating = True
Range("A1").Value = Timer - t
Range("A2").Value = q
Range("A3").Select
End Sub