السلام عليكم
===========
الكود المستخدم فى هذه الحالةسيكون
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Range("A2:Y100").Select 'هذا هو المدى المعمول فيه الفرز
Selection.Sort Key1:=Range("Y2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Target.Select
End Sub
اما عن الحيلة فعندما تظهر العمود J ستجدنى قد استخدمت دالة LEFT لايجدا الحرف الاول من اسم الطالب والحرف الول من النوع فمثلا الصورة توضح ذلك