حاولة اعمل الكود التالي لاعادة الترصيد بعد التعديل بس ما زبط معي شو السبب  
	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