[خالد دسوقى]

فى الشيت الذى أرفقته تم تصحيح الخطأ فى الماكرو

lastrow = Range("a" & Rows.cont).End(xlUp).rwo

ب

lastrow = Range("A1").CurrentRegion.Rows.Count

و fals ب false

و ( توسيع ) الخانات فى شيت ناجح

بالتوفيق .