مشكلة فى ترتيب ذكور و اناث

[ياسر سيد أبوستيت]

السلام عليكم و رحمه الله و بركاته 

اخوانى و اساتذتى الكرام برجاء المساعدة

استخدمت المايكرو المرفق فى دالة الترتيب و هو يعمل بكفاءة و لكن عند ترتيب الاناث تظهر فى اخر الورقة و ليس اولها

Dim Ans As String
Dim oSort As String
 Ans = MsgBox("""No"" = ÊÑÊíÈ ÐßÑ" & Chr(10) & """Yes"" = ÊÑÊíÈ ÃäËì", vbYesNo + vbInformation)
 oSort = IIf(Ans = vbYes, xlAscending, xlDescending)
 
 
 Range("b10:aa1009").Select
 Selection.Sort Key1:=Range("c10"), Order1:=xlDescending, Header:=xlNo, _
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
 DataOption1:=xlSortNormal
 
 Range("b10:aa1009").Select
 Selection.Sort Key1:=Range("i10"), Order1:=oSort, Key2:=Range("c10") _
 , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
 False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
 :=xlSortNormal
 Range("c10").Select

[محمد هشام.]

ارفق ملفك أخي الكريم ليتم إسقاط الكود للتجربة مع توضيح شكل البيانات المتوقع 

[ياسر سيد أبوستيت]

هذا الملف اخى

اليسر556.rar

[محمد هشام.]

لم اجد الكود داخل الملف ولا اعلم اسم الورقة المرغوب تنفيد الكود عليها