مشكلة في كود ماكرو

[ابـو حمودي]

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

يعطيكم العافيه جميعا

وكل عام وانتم بخير

حصلت درس مشروح على اليوتيوب وحبيت اطبقه على شيت عندي

ولكن ظهرت لي مشكله في الكود بعد تصميمه

ياليت اللي يقدر يعدل لي عليه اكون من الشاكرين

هذا الكود

Private Sub ÈÍË_click()
Data.Range("BD2").Value = s.Range("G3").Value
Dim a As Integer
a = s.Range("BE2").Value
Data.Range("d8").Value = s.Cells(a, "f")
Data.Range("d9").Value = s.Cells(a, "g")
Data.Range("d10").Value = s.Cells(a, "h")
Data.Range("d11").Value = s.Cells(a, "p")
Data.Range("d12").Value = s.Cells(a, "q")
Data.Range("d13").Value = s.Cells(a, "s")
Data.Range("d14").Value = s.Cells(a, "w")
Data.Range("d15").Value = s.Cells(a, "z")
Data.Range("h8").Value = s.Cells(a, "ad")
Data.Range("h9").Value = s.Cells(a, "am")
Data.Range("k8").Value = s.Cells(a, "ae")
Data.Range("k9").Value = s.Cells(a, "ah")
Data.Range("k10").Value = s.Cells(a, "ai")
Data.Range("k11").Value = s.Cells(a, "ak")
Data.Range("k12").Value = s.Cells(a, "al")
Data.Range("k13").Value = s.Cells(a, "aq")
Data.Range("k14").Value = s.Cells(a, "ar")
Data.Range("k15").Value = s.Cells(a, "as")
Data.Range("k16").Value = s.Cells(a, "au")
Data.Range("n8").Value = s.Cells(a, "aj")
Data.Range("n9").Value = s.Cells(a, "af")
Data.Range("n10").Value = s.Cells(a, "ag")
Data.Range("n11").Value = s.Cells(a, "an")
Data.Range("n12").Value = s.Cells(a, "ao")
Data.Range("n13").Value = s.Cells(a, "ap")
Data.Range("n14").Value = s.Cells(a, "at")
Data.Range("n15").Value = s.Cells(a, "av")
Data.Range("n16").Value = s.Cells(a, "aw")
Data.Range("k17").Value = s.Cells(a, "ax")
Data.Range("n17").Value = s.Cells(a, "ay")
End Sub

وهو كود بحث عن بيانات بالجدول

ولكن بعد التجربة يعطيني ان الخطا في الصف الاول

كما هو موضح بالصورة المرفقة

[مهند محسن]

وعليكم السلام-تجنباً لإهدار وقت الأساتذة وبما انه لا  يمكن العمل على التخمين ... فلابد من رفع ملف مدعوم بشرح كافى عن المطلوب !!!

[أبو إيمان]

هل data , s  أسماء أوراق عمل أما ماذا ؟؟