autosort

[Anthony]

autosort leaving blanks where they are left to right

 

[Ranjit kurian]

Hi Anthony,

Try the below code

Sub sortme()
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub