الأخ الكريم/ محمد توبه
السلام عليكم ورحمة الله وبركاته
إضافة إلي ما قاله أخي وأستاذنا العزيز/ شوقي ربيع
والتأكد من أن قيمة KH لا ترجع الصفر في جميع الأحوال
أقترح إستبدال قيم الأعمدة والسطور الثابتة بقيم دينامية تتغير بتغير عدد الأعمدة والصفوف - مثال
iLastRow = Cells(Rows.Count, "a").End(xlUp).Row
iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
تقبل تحياتي