Macro para ordenar por última columna

Hola FeCel,

Prueba este macro que asume que tu tabla empieza en la celda [A1] y tiene
encabezados de columnas:

Sub test()
Dim rng As Range
On Error Resume Next
Set rng = Range(Cells(1), Intersect( _
Cells.Find("*", Cells(1), xlValues, xlWhole, xlByRows, _
xlPrevious).EntireRow, _
Cells.Find("*", Cells(1), xlValues, xlWhole, xlByColumns, _
xlPrevious).EntireColumn))

If Not rng Is Nothing Then _
rng.Sort _
Key1:=rng(1, rng.Columns.Count), _
Order1:=xlDescending, _
Header:=xlYes, _
Orientation:=xlTopToBottom
End Sub

Saludos,
KL


"FeCel" wrote in message
news:

Necesito ayuda para hacer una macro que ordene una planilla en forma
descendente, por la ultima columna. La planilla puede tener un numero
variable de filas y de columnas.
De antemano gracias.
FeCel