Makroyu devam ettirme

[zosimos]

Buradaki kodları forumlarınızdan buldum gerçekten çok işime yaradı. Fakat görüldüğü gibi bu sadece tek satırlık bir makro bunu aşağı doğru tüm satırlara devam ettirmek istiyorum. Kodları değiştirerek yapmayı denedim ama 4000 satırlık bi veri var : ) ilginiz için teşekkürler.

'Buradan başla
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" And Target.Value <> 0 Then
Range("E10").Value = Range("E10").Value + Range("C10").Value
End If

If Target.Address = "$D$10" And Target.Value <> 0 Then
Range("E10").Value = Range("E10").Value - Range("D10").Value
End If

End Sub
'Bu formülün 11, 12, 13 olarak devam etmesi için ne yapmalıyım.

 

[veyselemre]

[vb:1:a1e025cf16]Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Column = 3 Or Target.Column = 4) And Target.Value <> 0 Then _
Cells(Target.Row, "e").Value = Cells(Target.Row, "e").Value + Target.Value

End Sub[/vb:1:a1e025cf16]
İşinizi görür mü?