Bem vindo ao Planilhando, @Damiano

Tente o seguinte:

Sub ClassificaçãoPorHierarquia()
  Dim ordemPatente As String
  ordemPatente = "Gen Ex,Gen Div,Gen Bda,Cel,Ten Cel,Maj,Cap,1º Ten,2º Ten,Asp Of,Cad,"
  ordemPatente = ordemPatente & "S Ten,1º Sgt,2º Sgt,3º Sgt,Alu,Cb EP,Cb EV,Sd EP,Sd EV"
  With Range("TabelaPED").ListObject.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("TabelaPED[P_Grad]"), customOrder:=(ordemPatente), Order:=xlAscending
    .Header = xlGuess
    .Apply
  End With
End Sub

Postado por: @damiano

↑

Nota: utilizo o Range("A1").CurrentRegion para selecionar todo o conteúdo pois a planilha pode ter um número variado de linhas.

Como seus dados estão numa Tabela (objeto ListObject), o próprio Excel "sabe" onde o range começa e termina, basta usar o nome da tabela.

🤩 🤗 👍 👍 🍻  @edsonbr. Muito obrigado pela solução do problema, com a tabela contendo todas as patentes funcionou perfeitamente, contudo testei em uma tabela com algumas patentes e não classificou na sequência, como proceder para o código funcionar com as duas situações. reenvio o arquivo para análise. 

Não classificou pq. as patentes ("1º Ten", "2º Ten" e "S Ten") foram digitadas com um espaço em branco sobrando no final do texto ("1º Ten ", "2º Ten " e "S Ten ").

Sugestão: use uma lista suspensa pra só escolher e não digitar as patentes.

@edsonbr Bom dia, corrigi e ficou certinho. Muito obrigado por responder e ter esse olhar atento que faz tudo mudar. Gratidão mestre!.