اخي جلال
قمت بالتعديل على الكود ليجمع النطاق (A:D) والنطاق (F:H) ويكون الناتج في العمود (E)
Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
Range("e" & Target.Row) = Application.WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, 4))) + _
Application.WorksheetFunction.Sum(Range(Cells(i, 6), Cells(i, 8)))
End Sub
هل هذا ماتريد اخي جلال
ابواحمد