Попытка запустить целый модуль или несколько подпрограмм подряд с помощью кнопки

Question

У меня есть куча сабвуферов, как показано ниже, в одном модуле:

Sub RowHeight()
    Rows("1:100000").RowHeight = 14
End Sub
Sub DeleteCol()
    Columns(1).Delete
End Sub

Sub sbDelete_Rows_Based_On_Criteria()
    Dim lRow As Long
    Dim iCntr As Long
    lRow = 4000
    Application.Calculation = xlManual
    Application.ScreenUpdating = False

    For iCntr = lRow To 1 Step -1
        If Left(Cells(iCntr, 1), 5) <> "Total" Then
            Rows(iCntr).Delete
        End If
    Next

    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub

Кажется, я не могу понять, как запустить их все подряд. Когда я пытаюсь добавить макрос к кнопке, я вижу каждый шаг в отдельности. Как мне запустить их подряд?

Спасибо!