salve
più immediato di un normale ordinamento mi pare che ci sia poco.
Se preferivi affidarti ad una formula, che in ogni caso prevede sempre una colonna di appoggio) puoi usare qualcosa come quello che segue:
Considerando che la tabella da invertire arrivi alla cella A50, in B copia la seguente formula:
=INDIRETTO(INDIRIZZO(RIF.RIGA($A$50)-RIF.RIGA(A1)+1;1))
Usando una macro da eseguire dopo aver selezionato la tabella da invertire che crea un Array verticale:
Sub Ribalta()
Dim Miorange As Range
Dim Mioarray As Variant, mioarray2 As Variant
Set Miorange = Selection
Mioarray = Miorange.Value
ReDim mioarray2(1 To Miorange.Cells.Count)
For n = UBound(Mioarray) To LBound(Mioarray) Step -1
X = X + 1
mioarray2(X) = Mioarray(n, 1)
Next n
Miorange.Value = Application.Transpose(mioarray2)
End Sub
scegli tu il metodo che ti pare più immediato.
saluti
Andrea