Soru son dolu sütunun altına toplam alma

[sirkülasyon]

excel sayfamın
F8:F, = WorksheetFunction.SumIf([F8:F35], ">0", [F8:F35])
G8:G, =Evaluate("=DATEDIF(TODAY(),DATE(YEAR(TODAY())+SUM(G8:G35),MONTH(TODAY())+SUM(H8:H35),DAY(TODAY())+SUM(I8:I35)),""y"")")
H8:H, =Evaluate("=DATEDIF(TODAY(),DATE(YEAR(TODAY())+SUM(G8:G35),MONTH(TODAY())+SUM(H8:H35),DAY(TODAY())+SUM(I8:I35)),""ym"")")
I8:I = Evaluate("=DATEDIF(TODAY(),DATE(YEAR(TODAY())+SUM(G8:G35),MONTH(TODAY())+SUM(H8:H35),DAY(TODAY())+SUM(I8:I35)),""md"")")

vba toplama işlemini almak istiyorum. Rica etsem yardımcı olabilme imkanınız var mı?

 

[sirkülasyon]

Açıklama eksikliğinden dolayı ikinci mesajı yazmak zorunda kaldım.
excel sayfamın
F8:F, G8:G, H8:H, I8:I sütunlarında veri girişi en son hangi satırda bitti ise hemen altına aşağıda ki şekilde sütun toplamlarını almak istiyorum
F8:F, = WorksheetFunction.SumIf([F8:F35], ">0", [F8:F35])
G8:G, =Evaluate("=DATEDIF(TODAY(),DATE(YEAR(TODAY())+SUM(G8:G35),MONTH(TODAY())+SUM(H8:H35),DAY(TODAY())+SUM(I8:I35)),""y"")")
H8:H, =Evaluate("=DATEDIF(TODAY(),DATE(YEAR(TODAY())+SUM(G8:G35),MONTH(TODAY())+SUM(H8:H35),DAY(TODAY())+SUM(I8:I35)),""ym"")")
I8:I = Evaluate("=DATEDIF(TODAY(),DATE(YEAR(TODAY())+SUM(G8:G35),MONTH(TODAY())+SUM(H8:H35),DAY(TODAY())+SUM(I8:I35)),""md"")")

Rica etsem yardımcı olabilme imkanınız var mı?

 

[muratboz06]

Diyelim ki her bir sütunun farklı satırında son değer var;
F50 de veri var
G45 de veri var
H20 de veri var
I35 de son veri var.

Bütün hesaplamalar her bir sütunun 51. satıra mı yapılacak yoksa her bir sütunun son verisinin altına mı hesaplama yapılacak (F51 e, G46 ya, H21 e ....)

 

[sirkülasyon]

51. satıra toplama yapacak hocam

 

[muratboz06]

G,H,I sütunlarındaki formulleri yazar mısınız. Yukarıdaki formüller hatalı.

 

[sirkülasyon]

HOCAM yukarıda ki yazılan makro hesaplaması doğru. Sıkıntı yok. Sadece son dolu satırın altına entegre edemedim