Kolondaki ara toplamları formül olarak yazma?

[dadaloglu38]

ÇEŞİTLİ ÜRÜNLERE AİT REÇETELERİN OLDUĞU LİSTEDE. REÇETELERİN TOPLAMLARINI FORMÜL OLARAK İLGİLİ ÜRÜNÜN KARŞISINA YAZMAK İSTİYORUM.


A LİSTESİ 1 Ad. 59,00 TL "=TOPLA(D2: D7) YAZILACAK"
SAD AÇIKLAMA1 1 5,00 TL
SDADF AÇIKLAMA2 2 22,00 TL
SAD AÇIKLAMA3 3 5,00 TL
SDADF AÇIKLAMA4 4 6,00 TL
DF342 AÇIKLAMA5 5 15,00 TL
DSF3412 AÇIKLAMA4 2 6,00 TL
D LİSTESİ 1 Ad. 527,50 TL "=TOPLA(D9: D13) YAZILACAK"
AD232 AÇIKLAMA1 2 151,00 TL
GAS44 AÇIKLAMA2 5 32,00 TL
GAS44 AÇIKLAMA2 5 32,00 TL
AFAS323 AÇIKLAMA3 2 240,50 TL
12124RR AÇIKLAMA4 8 72,00 TL
K SİPARİŞ 1 Ad. 389,50 TL "=TOPLA(D15: D19) YAZILACAK"
AD232 AÇIKLAMA1 6 72,00 TL
GAS44 AÇIKLAMA2 2 5,00 TL
AFAS323 AÇIKLAMA3 2 240,50 TL
12124RR AÇIKLAMA4 6 72,00 TL

 

[dadaloglu38]

Sub topla()
Dim sat, s, a, b As Long

sat = Sheets("sayfa1").Cells(65536, "A").End(xlUp).Row
s = Sheets("sayfa1").Cells(65536, "A").End(xlUp).Row

Do While Sheets("PANO KEŞFİ").Cells(sat, "F") <> "."
sat = sat - 1
a = a + 1
Loop
b = s - a

Sheets("sayfa1").Cells(b, "G").Formula = "=SUM(G" & b + 1 & ":G" & s & ")"

End Sub

Bu kodu uydurdum ve çözdüm. ama daha basit yolu varsa paylaşırsanız sevinirim.