ıkı alanın toplamını almak

[haso_excel]

Sub OVERDUE()
On Error Resume Next
For o = 5 To WorksheetFunction.CountA(Range("A:A"))
Cells(o, 11).Value = '''BURAYA D5 İLE I5 ın toplamının formul halini getirmedim"
Next o
End Sub

Amacım, K5 den başlayıp A kolınundaki son dolu hücre ye kadar K kolonuna ilk satır D5 ile I5 in toplamı alarak toplam aldırmak. K5=sum(d5:ı5) K6= sum(d6:ı6) şeklinde aşağıya kadar bir döngü

 

[hamitcan]

Sub topla()
    For i = 5 To [a65536].End(3).Row
        Cells(i, "k") = WorksheetFunction.Sum(Range("d" & i & ":" & "i" & i))
    Next
End Sub

 

[haso_excel]

Teşekkür ederim