السلام عليكم ورحمة الله وبركاته
الاستاذ / amdelfeky
قم باستبدال الكود
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
بهذا الكود
iRow = 11
Do Until Sheet1.Cells(iRow , "a").Value = ""
iRow = iRow + 1
Loop
و الله أعلم
و الافضل أن تعطينا المرفق
و السلام عليكم ورحمة الله وبركاته