Объедините два Sub VBA для запуска одновременно

Question

Как мне заставить эти два саба работать один раз? Я пытался заставить функцию sub вызова работать, но я знаю, что я просто облажался

Sub DeleteSelectedColumns()
Dim currentColumn As Integer
Dim columnHeading As String
'
For currentColumn = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
    columnHeading = ActiveSheet.UsedRange.Cells(6, currentColumn).Value
'Check whether to preserve the column
    Select Case columnHeading
    'Insert name of columns to preserve
        Case "DriverNo", "POD Name"
            'Do nothing
        Case Else
            'Delete the column
            ActiveSheet.Columns(currentColumn).Delete
        End Select
    Next
    '
  Call Sub sorthisfield
    End Sub
   '
Sub sortthisfield()
'
Sortthisfield Macro
'
ActiveWorkbook.Worksheets("Order Data").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Order Data").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("A6:A286"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Order Data").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub