VBA LESSON 121 - Excel Macro to Sort on 2 Columns

englishspacedog YouTube tutorial from Canada

Here's the VBA code:
Sub SORT2()
'
' SORT2 Macro
' SORT ON 2 COLUMNS
'
' Keyboard Shortcut: Ctrl+Shift+X
'
Range("E4").Select
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").SORT.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").SORT.SortFields.Add _
Key:=Range("Table1[[ TITLE]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").SORT.SortFields.Add _
Key:=Range("Table1[NUMBER]"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").SORT
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=18

End Sub