döngü durmuyor

[abdullahss]

döngüye nasıl ileve etmem gerekiyor sürekli çalışıyor durmuyor

Private Sub Worksheet_Change(ByVal Target As Range)
Range("h:h").ClearContents
For i = 1 To Cells(16, "A").End(xlUp).Row
    Cells(i, "h").Value = WorksheetFunction.Sum(Range("A" & i & ":B" & i & ":c" & i & ":d" & i & ":e" & i & ":f" & i & ":g" & i))
Next

End Sub

 

[abdullahss]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d4:m65536]) Is Nothing Then Exit Sub
sat = Target.Row
Cells(sat, "n") = Cells(sat, "d") + Cells(sat, "e") + Cells(sat, "f") + Cells(sat, "g") + Cells(sat, "h") + Cells(sat, "ı") + Cells(sat, "j") + Cells(sat, "k") + Cells(sat, "l") + Cells(sat, "m")
End Sub

bu şekilde çözüldü