السلام عليكم ورحمة الله
الملف المرفق ليس فيه الكود وهو بصيغة xlsx. مبدئيا وحسب ما أرى من الجزء من الكود الذي أدرجته في الموضوع أن الأمر
iRow = ws.cells(Rows.count,2).end(xlUp).Offset(2,0).Row
يعطي رقم السطر 8 والأمر الذي يليه يحاول وضع قيمة TextBox1 في الخلية B8 (وليس الخلية B9) والخلية B8 هي خلية مدمجة مع الخليتين B6 و B7 ولأجل ذلك الكود يعطي الخطأ لأنه لا يمكن الحجز في الخلية B8 (بحكم الدمج)... ثم إن الكود إذا اشتغل جيدا سيقوم بحجز البيانات بعد كل سطرين (يترك سطرا فارغا بين البيانات والأخرى التي تليها) وهذا بسبب الجزئية Offset(2,0) لذلك لا بد من إرفاق الكود حتي يتم تصحيح كل هذه الأخطاء وربما تبسيط بعض الأوامر منه. والله أعلم
بن علية