Karışık sayıları küçükten büyüğe sıralama

[resif]

Merhaba aşağıdaki sütündaki
Karışık sayıları küçükten büyüğe sıralamam gerekiyor
nasıl olur?

 

[hamitcan]

Böyle dener misiniz ?

Sub Sirala()
    For Each hcr In Range("a1:a" & [a65536].End(3).Row)
        a = hcr.Row
        Cells(hcr.Row, 2) = Replace(hcr.Text, "-", "")
    Next
        Columns("a:b").Sort key1:=[b1]
End Sub