Excel - Problema con macro

Buenas compañeros,

Esotoy usando un macro, que al pulsar en una celda, me ordena por orden donde hay numeros y alguna cadena de texto. Es esta:

If Target.Address = "$O$4" Then
Range("B5:AM200").Select
Selection.Sort Key1:=Range("O5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Lo que passa, es que si hay texto y le doy a ordenar, me ordena perfectamente los numeros, pero las celdas donde hay texto me las envia al fondo del rango que le marco en el codigo del macro.

Hay alguna manera de decirle que ordene los numeros y deje los textos a continuación?
Espero que si, por que me seria de gran ayuda.

Gracias de antemano,

Saludos

Mas bien, la solucion seria aver si alguien me sabe decir,

como poner en el macro, para que solo seleccione las celdas no vacias, en un rango deifinido.

Saludos y gracias