VBA Toplama İşlemi

[dellerlim]

Merhabalar.
Yazmaya çalıştığım ve aşağıda paylaştığım koddan beklediğim A2'den A sütunundaki son dolu hücreye kadar olan aralığı toplayıp B2'ye yazmasıdır. Hatamı biliyorum bu yazdığım kod A2 ile A sütunundaki son dolu hücreyi toplar sadece. Aralığı toplatma işlemini nasıl yapabilirim acaba?
Forumda "toplam", "toplama" vs bir sürü arama yaptım ancak bunun çözümünü bulamadım.

Sub toplam()

Set s1 = ThisWorkbook.Worksheets("Sayfa1")

For i = 3 To s1.Range("a65536").End(xlUp).Row
s1.Cells(2, "b") = s1.Cells(2, "a") + s1.Cells(i, "a")

Next i
End Sub

 

[askm]

Aşağıdaki kodu kullanabilirsiniz.

Sub toplam()
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
SonSatir = s1.Range("A65536").End(xlUp).Row
s1.Cells(2, "b") = Application.WorksheetFunction.Sum(s1.Range("A2:A" & SonSatir))
End Sub

 

[dellerlim]

Teşekkür ederim, istediğim buydu. Yalnız;

s1.Cells(2, "b") = Application.WorksheetFunction.Sum(s1.Range("A2:A" & SonSatir))

kodunu biraz açıklayabilir misiniz? bu kodu bende deniyorum ama tam istediğim gibi çalıştıramıyorum.

 

[askm]

Application.WorksheetFunction.Sum formüller içerisindeki Topla (Toplam) işlevini kullanmak demek oluyor. Kısaca A2 ile A sütunundaki son satıra kadar olan kısmı topla demek.