السلام عليكم
احتاج مساعدة في تعديل كود حيث يقوم الكود بدمج البيانات المكررة وجمعها لكن عملية الطرح تعطي ناتج خطا
يقوم بعملية الجمع من A:E اما ناتج الطرح يظهر في العمود F=D-E وهذا الكود

Sub mcrCombineAndScrubDups()
For Each a In Range("A2", Cells(Rows.Count, "A").End(xlUp))
For r = 1 To Cells(Rows.Count, "A").End(xlUp).Row - a.Row
If a = a.Offset(r, 0) And a.Offset(0, 1) = a.Offset(r, 1) And a.Offset(0, 2) = a.Offset(r, 2) Then
a.Offset(0, 3) = a.Offset(0, 3) + a.Offset(r, 3)
a.Offset(0, 4) = a.Offset(0, 4) + a.Offset(r, 4)
a.Offset(0, 5) = a.Offset(0, 4) - a.Offset(r, 3)
a.Offset(r, 0).EntireRow.Delete
r = r - 1
End If
Next r
Next a
End Sub