ترتيب اسماء حسب ابجد هوز

السلام عليكم ورحمة الله
جرب المحاولة بالكود المرفق
والكود يعتمد على عمود اضافي فارغ (العمود K)
تم الغاء دمج الخلايا في العمود K (الخلية K154) حتى يعمل الكود

Sub AL_KHALEDI()
Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
Lr = Rn.Rows.Count
ReDim Arr(Lr - 1)
For Each C In Rn. ...
لتكملة الموضوع برجاء الضغط على الرابط التالى ترتيب اسماء حسب ابجد هوز