حاولة اعمل الكود التالي لاعادة الترصيد بعد التعديل بس ما زبط معي شو السبب
Sub KH()
Dim LR3 As Integer
LR3 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Sheet2.Range("G2:G" & LR3).FormulaR1C1 = "=SUMIF(R2C2:RC[-5],RC[-5],R2C5:RC[-2])+SUMIF(R2C2:RC[-5],RC[-5],R2C6:RC[-1])"
Sheet2.Calculate
Sheet2.Range("G2:G" & LR3) = Sheet2.Range("G2:G" & LR3)
End Sub