Cacher is the code snippet organizer for pro developers

Public Sub SortTable()
    With ActiveWorkbook.Worksheets("HDDNotes").ListObjects("tblNotes").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("tblNotes[Type]"), SortOn:=xlSortOnValues, Order:=xlAscending
        .SortFields.Add Key:=Range("tblNotes[Size]"), SortOn:=xlSortOnValues, Order:=xlAscending
        .SortFields.Add Key:=Range("tblNotes[HPPartNumber]"), SortOn:=xlSortOnValues, Order:=xlAscending
        .Header = xlYes
        .Apply
    End With
End Sub