السلام عليكم

من فضلكم

كيف أعدل على الكود التالي:

Sub gestnoexamen()
Application.ScreenUpdating = False
Range("T17").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R17C6:RC[-14],RC[-14])"
Range("T17").Select
Selection.AutoFill Destination:=Range("T17:T72")
Range("T17:T172").Select
ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"T16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("g").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B17").Select
ActiveCell.FormulaR1C1 = "1"
Range("B18").Select
ActiveCell.FormulaR1C1 = "2"
Range("B17:B18").Select
Selection.AutoFill Destination:=Range("B17:B172")
Range("B17:B172").Select
Range("T9").Select
Application.ScreenUpdating = True
End Sub</pre>

[p]لكي يحدد المدي المعين في العمود ين (BوT)إلى غاية آخر سطر مساوي للسطر الذي الملف الرئيسي1.xlsmبه بيانات في العمود : D

لأن البيانات قد تختلف فربما تكون أكثر أو أقل وليس دائما تفس عدد التلاميذ

الكود في زر توزيع المترشحين،الورقة : الملف مرفق

وجزاكم اللله خيرا.