Ayuda con VBA

Hola Zatid
Revisa tu correo

Creo que este es el codigo final

un saludo

juan



Inicio Codigo
Sub OrdenaLista()

Dim Celda As Range

'en esta linea inserta un caracter cualquiera delante del numero
For Each Celda In Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
' aqui puedes colocar cualquier valor no numerico
' en el codogo del for marque el la coma simple
'celda = "'" & celda.Value
Celda = "A" & Celda.Value
Next Celda

' Ordena el rango
Range(Range("A1"), Range("C" & Rows.Count).End(xlUp)).Sort
key1:=Range("A1"), order1:=xlAscending, header:=xlNo

' quita el caracter que hemos añadido antes
Columns("A").Replace what:="A", replacement:=""

' esto hace lo mismo pero con un bucle
'For Each Celda In Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
' Celda = Val(Mid$(Celda.Value, 2))
'Next Celda

End Sub

Fin Codigo