ماسبب ظهور الخطا Run-time error 9 في الكود

[skyblue]

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

برجاء من الاساتذة المشرفين المساعدة فانا محتاج جد جدا لهذا الكود الخاص بالترحيل

احيانا الكود يشتغل معي عادي واحيانا يظهر لي الخطا : Run-time error 9

subscript out of rane

فما سبب هذا الخطا وكيف يمكن علاجه في الملف المرفق

رابط القيد :

http://www.officena.net/ib/index.php?showt...t=0entry48280

وربي يحفظكم

[cookies]

اخي العزيز استخدم الكود التالي:

Dim EndRow As Long
For i = 1 To 1
EndRow = Sheets("Sheet7").Range("A1").CurrentRegion.Rows.Count
Sheets("Sheet7").Cells(EndRow + 1, 1).Value = EndRow
Sheets("Sheet7").Cells(EndRow + 1, 2).Value = Sheets("Sheet6").Cells(7, 4).Value
Sheets("Sheet7").Cells(EndRow + 1, 3).Value = Sheets("Sheet6").Cells(7, 5).Value
Sheets("Sheet7").Cells(EndRow + 1, 4).Value = Sheets("Sheet6").Cells(7, 6).Value
Sheets("Sheet7").Cells(EndRow + 1, 5).Value = Sheets("Sheet6").Cells(7, 7).Value
Next i
Sheets("Sheet6").Range("d7:g7").ClearContents
End Sub