Sorting Text Cells without them Going to the Bottom

[Voluntaryist]

I am sorting a list of numbers, some containing numbers only, and other containing text.

When I run the following code, the cells which are numbers (e.g. 632574) sort normally and cells with text (e.g. 4Z4229A) are placed at the very bottom rows. I changed all the cells to text, so they sort together, but now they all go the very bottom rows. How do I get this to sort them all in ascending order starting at the top row?

Sub Compile() 
    With Sheets("Month Total") 
        .Columns("A:Q").Sort key1:=Range("B1"), Order1:=xlAscending, Orientation:=xlTopToBottom, Header:=xlYes 
    End With 
End Sub