SirJB7, it works fine but has one problem.
ActiveWorkbook.Worksheets("Sheet1").SORT.SortFields.Add Key:=Range("E5:E8"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="TSL", _
DataOption:=xlSortNormal
when it sort using 2nd condition, it sort first TSL then alphabetical order...