اساتذتنا الكرام مع جزيل شكري وتقديري ما وددت ايضاحه انني لا ارغب بزر امر للكود بل كود يعمل ( ان كان ذلك ممكنا ) بمجرد ادخال البيانات في اسطر محدده في المرفق وانا لدي الكود ادناه والذي يعمل بزر امر والذي استخدمه في موضوع آخر ارجو قبول اعتذاري عن طلبي اجراء تعديل عليه ليعمل بدون زر مع الامتنان
Sub Fill_1()
Application.Calculation = xlCalculationManual
Dim LastR As Long
LastR = Range("E" & Rows.Count).End(xlUp).Row
Range("c5:c" & LastR).SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
Range("d5:d" & LastR).SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
Application.Calculation = xlCalculationAutomatic
End Sub