Bir önceki satırı toplatarak bakiye almak

[haso_excel]

Merhaba arkadaşlar,
Amacım bir ektre oluşturmak. Bu nedenle aşağıdaki kodu yazdım. Fakat yürüyen bakiye için kodu devam ettiremedim yardımcı olursanız çok sevinirim.

Sub EKSTRE1()
  
Dim i As Integer
For i = 3 To WorksheetFunction.CountA(Range("h:h"))
If Cells(i, 8).Value > 0 Then
Cells(i, 12).Value = Cells(i, 8)
ElseIf Cells(i, 8).Value <= -1 Then
Cells(i, 13).Value = Cells(i, 8).Value * -1
End If


Next i
End Sub

N2 hücresinde Cells(i, 14) de devir bakiyesi var. N3 hücresinden itibaren, eğer L3 hücresinde cells(i,12) de bakiye varsa N3 hücresine n2+ cells(i,12) yapacak değil ise n2 hücresini cells(i,13 )den çıkaracak ve h kolonun boş hücresine kadar devam edecek.

 

[haso_excel]

Ekde bir dosya var. N3 hücresindeki formulü H koolundaki en son dolu hücreye kadar nasıl yazabilirim.

 

[fedeal]

Anladıgım kadar yaptım umarım işe yarar
Sub EXTRE1()

Son_Dolu_Satir = Sheets("dgh").Range("H65536").End(xlUp).Row
BS = Son_Dolu_Satir + 1
Dim I As Integer
For I = 2 To BS
Sheets("dgh").Range("N" & I + 1).Value = Sheets("dgh").Range("N" & I).Value + Sheets("dgh").Range("L" & I).Value - Sheets("dgh").Range("M" & I).Value
Next I
End Sub
Düzelttim ancak 1 alt satıra yazıyor.

 

[fedeal]

Şimdi oldu zannedersem

Sub EXTRE1()
Son_Dolu_Satir = Sheets("dgh").Range("H65536").End(xlUp).Row
BS = Son_Dolu_Satir + 1
Dim I As Integer
For I = 2 To BS
Sheets("dgh").Range("N" & I + 1).Value = Sheets("dgh").Range("N" & I).Value + Sheets("dgh").Range("L" & I + 1).Value - Sheets("dgh").Range("M" & I + 1).Value
Next I
End Sub