Public Sub UserSortInput()
    Dim UserInput As String
    Dim promptMSG As String
    
    promptMSG = "Enter a numeric value to sort..." & vbCrLf & _
          "1 --- Sort by Division" & vbCrLf & _
          "2 --- Sort by  Category" & vbCrLf & _
          "3 --- Sort by Total"
          
    UserInput = InputBox(promptMSG)
    
    If UserInput = "1" Then
                    DivisionSort
    ElseIf UserInput = "2" Then
                    CategorySort
    ElseIf UserInput = "3" Then
                    TotalSort
    End If   

End Sub


Sub DivisionSort()
'
' Sort List by Division Ascending
'

'
     Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

Sub CategorySort()
'
' Sort List by Category Ascending
'

'
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

Sub TotalSort()
'
' Sort List by Total Sales Ascending
'

'
    Selection.Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub