Sub tri_list_pers()
n = Application.GetCustomListNum(Array("GA", "GCA", "GBI", "CL", "LC", "CA", _
"CT", "CE", "CN", "CP", "CS", "LT", "SL", "AS", "MR", "AC", "AD", "BC", "MC", "SC", "BG", "ST" _
, "LG", "MD", "SP", "CD"))
If n = 0 Then
Application.AddCustomList ListArray:=Array("GA", "GCA", "GBI", "CL", "LC", "CA", _
"CT", "CE", "CN", "CP", "CS", "LT", "SL", "AS", "MR", "AC", "AD", "BC", "MC", "SC", "BG", "ST" _
, "LG", "MD", "SP", "CD")
n = Application.CustomListCount
End If
With Range("C3:I" & [B65000].End(xlUp).Row)
.Sort Key1:=Range("D3"), Key2:=Range("E3"), Header:=xlGuess, OrderCustom:=n + 1
.Sort Key1:=Range("C3"), Order1:=xlAscending
End With
End Sub