I\'m using this to sort several columns of numbers in ascending order:
With Workbooks(LotWB).Worksheets("SQL Data").Sort .SortFields.Add Key:=R