No se que me pasaba pero ya volvi a entenderle la mano y ya mejore muchisimo mi codigo asqueroso xD
max = UBound(Equipo)
For i = 0 To max
Do
Randomize Time
ran = CInt(Rnd() * max)
Loop While Ordenado(ran) <> ""
Ordenado(ran) = Equipo
Next
xDD Lo dejo por si las moscas..