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