Многократная сортировка Excel и последняя сортировка по текущему сезону

Question

На самом деле у меня есть сортировка по 4 различным значениям, я могу сделать это после того, как я помещу эти значения в массив.

После этого мне нужно отсортировать по другому столбцу по сезонам, но мне нужно получить текущийсезон сортировки, также столбец может содержать сезон прошлого года. например, осень 2020, лето 2020, весна 2020, зима 2019.

ниже мое текущее кодирование

sub trial()

Dim vCustom_Sort As Variant, rr As Long

    vCustom_Sort = Array("football", "baseball", "basketball", "running")
    Application.AddCustomList ListArray:=vCustom_Sort

    With Range("BF:BF")
        .Parent.Sort.SortFields.Clear
        .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                    Orientation:=xlTopToBottom, Header:=xlYes, MatchCase:=False, _
                    OrderCustom:=Application.CustomListCount + 1

        .Parent.Sort.SortFields.Clear
    End With

End Sub