شكرا لك أخي ابو اسامة العينبوسي
وفعلا بعد تطبيق هذا الكود على الخلايا المطلوبة عمل بشكل طبيعي الا أنني توقفت عند تطبيق هذا الكود على الخلية J6 ولتسهيل الامر يوجد الكود في الملف المرفق.
If Target.Address = "$J$6" Then Cells(6, 10).Value = Cells(6, 10).Value - (Cells(6, 4).Value + Cells(17, 4).Value + Cells(28, 4).Value + Cells(39, 4).Value + Cells(50, 4).Value + Cells(61, 4).Value + Cells(72, 4).Value + Cells(83, 4).Value + Cells(94, 4).Value + Cells(105, 4).Value + Cells(116, 4).Value + Cells(127, 4).Value)
DailyReport1.rar