المساعدة في كود ملئ المعادلات

[gamalin2]

الاخوة الافاضل 

لدي نموذج لاذن اضافة 

اريد ان يكون غير محدد عدد الاسطر ويكون اول سطر للادخال هو السطر رقم 7

واستخدمت الكود التالي بمساعدة الاخوة هنا 

ولكن اريد ايضا بعد الانتهاء وترحيل الاذت محو الاسطر التي بها بيانات جميعها من السطر 7 وحتى الاخر وعند محاولة تنفيذ لك في وجود هذا الكود تحدث خطأ ويخرج البرنامج

الكود هو 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 7 And Target.Column < 8 And Target.Column <> 3 Then
Range("a" & Target.Row).Formula = "=IF(R[-1]C=""ã"",1,R[-1]C+1)"
Range("c" & Target.Row).Formula = "=IFERROR(VLOOKUP(RC[-1],items!C[-1],2,FALSE),"""")"
Range("h" & Target.Row).Formula = "=RC[-2]*RC[-1]"
Range("h" & Target.Row + 1).Formula = "=sum(r8+r[c-1])"
Range("h" & Target.Row + 2).Formula = "=RC[-1]*1.14"
End If
End Sub

المطلوب كيف يمكن حذه الاسطر من الشيت وهذا الكود موجود وينفذ 
 

[مهند محسن]

فين الملف ؟!!! وكيف تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!