Excel Resimdeki işlevi yapma

[keskin19]

Arkadaslar iyi günler .
Ben deneme sayısı yazan yere üstteki tablodaki sayıları toplatmak istiyorum.Ve tabiki bunu Toplam_Hesapla adlı butonla yapmak istiyorum.

Dim i As Integer
For i = 1 To Range("b1").Value

Cells(Range("b1").Value + 3, 5) = WorksheetFunction.Sum(Range("e2:e12"))

Next

hesaplanan 9 degerini böyle hesapladım. Fakat digerleri için Range("e2:e12") deki e ' lerin degişmesi gerekiyor.Yani sırasıyla f, g, h olması gerekiyor.
Bunu nasıl yapabilirim.

Ayrıca blok_Toplamları yazan yere de blok bazında toplamları gerekiyor. Bana yardımcı olursanız sevinirim.

 

[hamitcan]

sA = [a65536].end(3).row+1 'a65536 a sütunu anlamına geliyor satır sayısı diğerleri de aynı.
sB = [b65536].end(3).row+1
sC = [c65536].end(3).row+1
sD = [d65536].end(3).row+1

cells(sA,"a") = WorksheetFunction.Sum(Range("a2:a" & sA))
cells(sB,"b") = WorksheetFunction.Sum(Range("a2:a" & sB)) 'diğerlerini bunlara bakarak çoğaltın.

 

[keskin19]

Teşekkür ederim Hamitcan Bey.