Please don't worry about it too much. I chose to make a sort button and place it at the top of the cell, rather than over the other. This way one can be used as a filter and the other as sort, and I can just teach the difference.
My code to make the button a sort toggle is as follows...
Sub SortbyNumberAlpha()
Dim wks As Worksheet
Dim tbl As ListObject
Set wks = Sheets("Booking")
Set tbl = wks.ListObjects("BkgTbl")
Dim lastRw As Integer
lastRw = tbl.ListRows.Count
tbl.Sort.SortFields.Clear
'Sheets("Booking").ListObjects("BkgTbl").Sort.SortFields.Clear
If Cells(3, Range("BkgTNSort1").Column).Value > Cells(lastRw, Range("BkgTNSort1").Column).Value Then
tbl.Sort.SortFields.Add2 Key:=Range("BkgTNSort1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
tbl.Sort.SortFields.Add2 Key:=Range("BkgTNSort2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Else
tbl.Sort.SortFields.Add2 Key:=Range("BkgTNSort1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
tbl.Sort.SortFields.Add2 Key:=Range("BkgTNSort2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End If
With tbl.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub