تصحيح كود ترحيل حسب اسم الشيت

[عبدالعزيز محمد]

السلام عليكم

في الملف المرفق شيت رئيسي به بيانات طلاب أود ترحيل البيانات حسب اسم الشيت وهو عبارة عن صف الطالب 

ففي الملف المرفق كود أود تصحيحه لو أمكن .

ترحيل 1.rar

في انتظار التصحيح..........

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit
Option Base 1
Sub Salim_filter()
Dim arr, k%
arr = Array("1", "2", "3")
 For k = 1 To 3
  Sheets(arr(k)).Range("a2:h10000").ClearContents
 Sheets(arr(k)).Range("XFC1:XFC2") = Application.Transpose(Array("النتيجة", arr(k)))
       Sheets("البيانات").Range("b1:H10000").AdvancedFilter Action:=xlFilterCopy, _
       CriteriaRange:=Sheets(arr(k)).Range("XFC1:XFC2"), CopyToRange:=Sheets(arr(k)).Range("b1:h1")
      Sheets(arr(k)).Range("XFC1:XFC2") = ""
    Next
End Sub

الملف مرفق

ترحيل Salim.rar

[عبدالعزيز محمد]

طلبا ليس أمراً أود شرح الكود كل سطر حتى تتم الاستفادة من الكود حيث يمكن زيادة عدد الصفحات والاستفادة منه في ملفات