صيغة VBA الكبيرة لا تعمل

أنا أستخدم Excel 2013 ،

أطبق بطريقتين في Large Formula VBA ، لكنني لا أعمل ، ما الخطأ ، لا أعرف

الماكرو الفرعي 1 ()
عبارة "1st Table Dim" ---> تعلن عن المتغيرات
خافت لصف طويل ، lCol طويل
lRow = النطاق ("D5"). النهاية (xlDown). الصف
lCol = المدى ("C5"). النهاية (xlToRight). العمود

عدد الأعمدة في العدد
خافت ك وطول ، م وطول
k = Range ("C5"، Range ("C5"). End (xlToRight)). عدد الأعمدة.
عدد الصفوف بالأرقام
م = النطاق ("D6" ، النطاق ("D6"). النهاية (xlDown)). عدد الصفوف.

خافت MyRange كمجموعة
اضبط MyRange = Range (Range ("D5"). Offset (1، k + 3)، Range ("D5"). Offset (m، k + 3))

النطاق ("D5"). الإزاحة (2، 1 + 3). الصيغة = "= LARGE (" & MyRange & "، 1)"

'و

'= (كبير ($ I $ 6: $ I $ 12,1،7) -I2) / XNUMX
النطاق ("D5"). الإزاحة (2، 1 + 3). الصيغة = "= (LARGE (" & MyRange & "، 1) -" & Range ("D5"). الإزاحة (1، k + 3) & ") / 2"

نهاية الفرعية

الرجاء مساعدتي وشكرا مقدما