macro base ordenar personalizado

[AlexRB]

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?

[Antoni]

Prueba esta macro:

Código: Seleccionar todo

Sub OrdenarHojas()
Application.ScreenUpdating = False
With ActiveSheet
   .Columns("A").Insert
   For x = 2 To .Range("B" & Rows.Count).End(xlUp).Row
      Select Case .Range("B" & x)
         Case 3: .Range("A" & x) = 1
         Case 2: .Range("A" & x) = 2
         Case 4: .Range("A" & x) = 3
         Case 1: .Range("A" & x) = 4
      End Select
   Next
   .UsedRange.Sort Key1:=.Columns("A"), Key2:=.Columns("B"), Header:=xlYes
   .Columns("A").Delete
End With
End Sub

[AlexRB]

Gracias es lo que buscaba, saludos