Sub SortingAtoR()
Intersect(Range("A1").CurrentRegion, Range("A:R")).Sort _
Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2"), Order2:=xlAscending, Header:=xlYes, _
OrderCustom:=1, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortTextAsNumbers
End Sub
SortData.xls