i think below code will not work since a custom list means something like "robert, jane, albert, bo" and ascending custom sort will place robert's at top, jane's at second, albert's at third, etc and not words start with r or j or a...
but i will not delete my post because it may give an idea.
try to post a workbook which contains words from local alphabet.
?
Sub vbax_62188_sort_custom_list()
With Application
.AddCustomList ListArray:=Array("a", " b", " c", " ç", " d", " dh", " e", " ë", " f", " g", " gj", " h", " i", " j", " k", " l", " ll", " m", " n", " nj", " o", " p", " q", " r", " rr", " s", " sh", " t", " th", " u", " v", " x", " xh", " y", " z", " zh")
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=.CustomListCount
.DeleteCustomList ListNum:=.CustomListCount
End With
End Sub
this code is for activesheet. add worksheet reference befoe A1's.