带多个键和自定义顺序的Excel VBA排序

我有一个表需要根据两列进行排序：a和E。 A列是数字列，升序是第一个标准。 列E有特定的值，我需要按特定的顺序排列：PS、MS、RDS、ES、FS、PFS、TS、DS、DE、TE、PFE、FE、EE、RDE、ME、PE

我原以为下面的代码可以工作，但对于定制订单来说，它绝对不行。 我不确定我做错了什么

谢谢

With Listing.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending
    .SortFields.Add Key:=Range("E1"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        CustomOrder:="PS,MS,RDS,ES,FS,PFS,TS,DS,DE,TE,PFE,FE,EE,RDE,ME,PE"
    .SetRange Columns("A:M")
    .Header = xlYes
    .Apply
End With

键：=Range（“xx”）

参数应该是已排序的列单元格，而不是标题单元格。

请参阅：“指定当前正在排序的范围。只读。”