Excel Classificar dados (MESES) com VBA

[riberex00]

Boa noite galera. Estou tentando desenvolver uma planilha para controle financeiro. Ela é bem simples. Eu gostaria de escrever um código VBA que classificasse o ano e o mês. Classificar o ano eu até consegui, porém, não consigo que o VBA classifique o mês, pois, ele entende que é para classificar em ordem alfabética, tipo, A, B, C (...). Então, ele joga Fev, antes de Jan, por exemplo. Obrigado.

Public Sub classificar ( )
Dim tabela As Range
wsbase.Sort.SortFields.Clear
Set tabela = Range("A2").CurrentRegion
With wsbase.Sort
.SortFields.Add tabela.Columns(1), xlSortOnValues, xlAscending
.SortFields.Add tabela.Columns(2), xlSortOnValues, xlAscending
End With
Plan1.Sort.SetRange tabela
Plan1.Sort.Header = xlYes
Plan1.Sort.Apply
End Sub

 

PlnFor.xlsx

[Midori]

@riberex00 No método Add de SortFields tem o parâmetro CustomOrder. Passe todos os meses na ordem correta para configurar a classificação, p.ex: CustomOrder:= "Jan,Fev,Mar..."