tem uma planilha da segunda macro
http://www.planilhando.com.br/forum/viewtopic.php?f=21&t=19745
embaralha area selecionada
Sub Embaralha_seleção()
Dim numm()
numm = Selection
ct = UBound(numm, 2)
lt = UBound(numm, 1)
ReDim dex(1 To lt * ct)
n = 0
For h = 1 To ct
For v = 1 To lt
If numm(v, h) & " " <> " " Then
n = n + 1
dex(n) = numm(v