كود رائع جزى الله صانعه بكل خير
يعمل على الترتيب التلقائي الذكي حسب النص
Sub SortCustomList()
Application.AddCustomList Array("الفجر", "الظهر", "العصر", "المغرب", "العشاء")
Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1
Application.DeleteCustomList Application.CustomListCount
End Sub