مشكل برمجة VBA

السلام عليكمنتمنى ان يكون الجميع بخيرانا بصدد تطزير تطبيق بسيط يعتمد على excel بواجهة VBAالامرو كانت جيدة لكن حين وصلت لكود التعديل لم يعمل بشكل جيد,الكود عند التعديل يحذف الفاتورة السابقة ويعوضها بالفاتورة المعدلة مع الاجتفاظ بنفس رقم الفاتورةاليكم الكودDim fr1, fr2, lr1, lr1 As Integerlr1 = Feuil2.Range("A10000").End(xlUp).Rowlr2 = Feuil6.Range("A").End(xlUp).RowFor fr1 = 2 To lr1For fr2 = 2 To lr2If Feuil2.Cells(fr1, "A").Text = Me.Textnbrfc.Text And _Feuil2.Cells(fr1, "D").Value = Feuil6.Cells(fr2, "A").Value Then''Feuil2.Range("A:L").EntireRow.DeleteFeuil2.R ange("A:L").Deletelr1 = lr1 + 1lr2 = lr2 + 1End IfNextNext