السلام عليكم 
 
اخواني الاعزاء 
 
شكراً على المرور الطيب 
 
اخي المهندس صالح حياك الله يالغالي . 
 
اخي ايسم  الكود يعمل كما قلت اشرت حضرتك منذ قليل ،،، ولكن بمثالي المرفق اعلاه اقتصرت على جعل  
 
العمود الذي به المعادلات هو واحد ،، واليك المرفق يشمل عدد ثلاث أعمدة لتنسخ جميع المعادلات الخاصة  
 
بها .  
 
تستطيع اخي ايسم أن تعدل الكود من هذا السطر  
 
 
Cells(mpRow.Row, "i").Resize(, 3).Copy Cells(mpRow.Row + 1, "i")
 
Insert_Delete_Rows_with_formulas1.rar