السلام عليكم شكراً استاذ ابراهيم
تبقا شى واحد مسح الخلية g14 بعد عملية الجمع
فعلت اضافة ولكن فاشلة فاصبح الكود بطيئ
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("g14:g14")) Is Nothing Then
Target.Offset(1, 0).Value = Target.Value + Target.Offset(1, 0).Value
Range("G14").Select
Selection.ClearContents
End If
End Sub