Ordenación en VBA

He conseguido hacer esta clasificación que por el momento parece estar funcionando :)

Gracias por sus respuestas.

Me evita algunas manipulaciones^^

hola,

aquí está el código vba:

sub ordenar
i=1
' permite definir el número de filas de tu tabla gracias a la variable i
do while cells(I,1) <> ""
i=i+1
loop

Range(cells(1,2),cells(i,10)).Select 'selecciona el rango de la celda B1 a Ji
==> J representa el 10 (si quieres detenerte antes de otra columna, sustituye el 10 por el número de columna) e i representa la última fila de tu tabla

'Para el resto, reemplaza Feuil1 por el nombre de tu hoja
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(cells(2,2),cells(i,2)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(cells(2,4),cells(i,4)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range(cells(2,2),cells(i,10))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
end sub