Enter tuşu ile geçiş sorun yaratır bi tane buton atarsın butona basınca sıralar.

Bu a1 hücresine girdiğin verilerin rakamsal değerine göre küçükten büyüğe sıralama yapar.

Sub siralama()
'
' siralama Makro
' Makro TrueLove tarafından 10.07.2006 tarihinde kaydedildi.
'

'
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub