أخى عادل للأسف لم يتضح لى ما فعلته بملفك المرفق
كل التغير الذى رأيته هو اضافة هذا الكود فقط
m = Sheets("POstore").Cells(i, 1).Address
n = Sheets("POstore").Cells(i, 70).Address
'p = Sheets("POstore").Cells(i - 1, 1).Address
'o = Sheets("POstore").Cells(i - 1, 70).Address
'Range(p, o).Select
'Selection.Copy
أعتقد أخى انك لم تفهم ما أقصده
كرما لا أمرا - ارفقت لك ملف سيتضح به الكثير - وهذا الملف المرفق هو ملف العمل الأساسى بالنسبة لى
وقد وضحت به ما أريد
هذه ناحية
من الناحية الأخرى - تفضلا منك ارجو شرح لى ما فائدة اضافة الكود بالأعلى الى كود الملف الرئيسى (للافادة فقط لعلنى احتاجه)
وأيضا لى سؤال آخر
هذه الصيغة
Dim i As Integer
i = Sheets("POstore").Range("A65536").End(xlUp).Row + 1
هذه الصيغة تقوم بادخال وترحيل باقى الكود الى الصف الثانى - أين يمكننى التعديل فى هذه الصيغة لأتحكم فى ادخال باقى الكود ليبدأ من الصف الذى أريد؟
وآسفة لتعبك وازعاجك أخى
أنتظر ردك
file0132.rar