VBA code to sort data in a worksheet

 Sub SortData()

   With ActiveSheet.Sort

      .SortFields.Clear

      .SortFields.Add Key:=Range("A1:A10"), _

         SortOn:=xlSortOnValues, Order:=xlAscending, _

         DataOption:=xlSortNormal

      .SetRange Range("A1:B10")

      .Header = xlYes

      .Apply

   End With

End Sub

VBA code to sort data in a worksheet