Pessoa2009

Boa tarde pessoal. Tenho duas macros e gostaria que depois que a primeira terminasse o processo, a segunda iniciasse. Abaixo segue as macros

Sub cola_proxima_vazia1()
    
    Sheets("Resultado final").Select
    Range("A23:F30").Select
    Selection.Copy
    Sheets("Resultados da competição").Select
    Range("A1").Select
    Do
        If ActiveCell <> "" Then
        ActiveCell.Offset(1, 0).Select
        End If
    Loop Until ActiveCell = ""
    ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False

End Sub
 

Public Sub Imprime_Round_1()
Dim W As Integer
W = Range("o2").Value
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=W, Copies:=1, Collate:=True
On Error Resume Next
Dim Caminho As String
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [c1].Value & ".xlsm"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & [c1].Value & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, From:=5, To:=5, OpenAfterPublish:=False
MsgBox ("Resultado de : ") & [c1].Value & " foi salvo." _
    , vbInformation, "IFBB-RIO"
    ActiveWorkbook.Save
    Application.Quit
End Sub

Se alguem puder ajudar ficaria muito grato. Expliquei com detalhes para que possam entender minha necessidade. É uma apuração de campeonatos onde os atletas recebem notas dos árbitros e para definir desempate existem alguns critérios e não consegui fazer no excel.

(A)  (B)     (C)     (D)   (E)     (F)        (G)   (H)    (I)      (J)       (K)    (L)

(1)  N°     Arb1  Arb2  Arb3  Arb4    Arb5  Arb6  Arb7  Arb8    Arb9  Total
(2)  22         1       2        2       4           2       1        4        1         2        9
(3)  23         2       1        3       3           1       2        2        2         1        9
(4)  24         3       3        1       2           3       3        1        3         3       14
(5)  25         4       4        4       1           4       4        3        4         4        20
                            

Essa apuração é realizada com a soma das notas de cada árbitro para cada atleta exceto as duas melhores e duas
piores notas
A classificação final se da com o vencedor aquele que obtem o menor valor do somatório    
    
Ainda assim, ocorre empate e os criterios são os seguintes:    
    
1 criterio - atleta que obtver maior quantidade de melhor nota (1° lugar) exceto as descartadas    
Ex.    Atleta 22 tem (um) primeiro lugar
    Atleta 23 tem (um) primeiro lugar
    Continuam empatados

2 criterio - atleta que obtiver maior quantidade da segunda melhor nota (2° lugar) exceto as descartadas    
Ex.    Atleta 22 tem (quatro) segundos lugares
    Atleta 23 tem (quatro) segundos lugares
    Continuam empatados

3 critério - atleta que obtiver maior quantidade da terceira melhor nota (3° lugar) exceto as descartadas    
Ex.    Atleta 22 não tem terceiro lugar
    Atleta 23 ão tem terceiro lugar
    Continuam empatados

4 criterio - atleta que obtiver maior quantidade da quarta melhor nota (4° lugar) exceto as descartadas    
Ex.    Atleta 22 não tem quarto lugar
    Atleta 23 ão tem quarto lugar
    Continuam empatados
    
Permanecendo todos empatados, repete se o procedimento agora CONSIDERANDO AS NOTAS DESCARTADAS    
    
5 criterio - atleta que obtver maior quantidade de melhor nota (1° lugar) CONSIDERANDO AS DESCARTADAS    
Ex.    Atleta 22 tem (tres) primeiros lugares
    Atleta 23 tem (tres) primeiros lugares
    Continuam empatados

6 criterio - atleta que obtver maior quantidade de segunda melhor nota (2° lugar) CONSIDERANDO AS DESCARTADAS    
Ex.    Atleta 22 tem (quatro) segundos lugares
    Atleta 23 tem (quatro) segundos lugares
    Continuam empatados

7 criterio - atleta que obtver maior quantidade de terceira melhor nota (3° lugar) CONSIDERANDO AS DESCARTADAS    
Ex.    Atleta 22 não tem terceiro lugar
    Atleta 23 tem (dois) terceiros lugares
    DESEMPATADOS, ONDE O ATLETA 23 SERÁ O VENCENDOR
    
CASO CONTUASSEM EMPATADOS, O DESEMPATE SE DARIA PELA NOTA DO ÁRBITRO N° 1 MAIS EXPERIENTE    

Segue planilha anexo para facilitar

Obrigado desde já