@sandrolima, bom dia!

A última das 4 Listas Personalizadas padrão do Excel é justamente a listagem dos meses. Aproveite esse fato usando a lista no argumento CustomOrder do objeto SortFields:

Sub OrdenaPorMês()
  With Worksheets("2020").ListObjects("TB_CD2020").Sort
    .SortFields.Clear
    .SortFields.Add Key:=.Parent.ListColumns("Mês").Range, CustomOrder:=4
    .Apply
  End With
End Sub
 

@sandrolima, a rotina que o colega Edson passou funciona perfeitamente, mas tem um porem no seu exemplo, o nome do mes de Fevereiro está errado Fevereito arrume antes de executar a rotina.

[]s