Hola buenos días tengo la siguiente macro:
Sub OrdenarHojas()
Range("A2").Sort Key1:=Range("A3"), Order1:=xlDescending, Key2:=Range( _
"B3"), Order2:=xlAscending, Header:=xlYes
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub
se ordena por la columna a en forma descendente "4,3,2,1" pero necesito se ordene en el siguiente orden "3,2,4,1"
¿Me pueden ayudar de favor?