ListObject.Sort (Excel)

Gets or sets the sort column or columns and sort order for the ListObject collection.

Dim srtSort As Sort
Set srtSort = ActiveCell.ListObject.Sort