Seçili hücreleri nasıl toplarım?

[redfather]

alt alta yer alan üç hücreyi seçip toplamak istiyorum makro ile bu toplamı da seçili olan üç hücrenin en altta seçilen olan üçüncü hücresine ya da yandaki herhangi bir hücreye yazdırmak istiyorum.

Örneğin;

B2
B3
B4

bu üç hücreyi seçtim ve markyou çalıştırdğımda B2+B3+B4 ü B4'e yazdırmalı.

Her zaman üç hücre değil bazen 4 bazen beş hücre seçiyorum. genellersek sonucu seçili olan hücrelerden en alttakine yazmasını istiyorum.

Bu konuda yardımcı olabilirseniz çok sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    With Selection
        a = 0: If .Count > 1 Then a = 1
        son_adres = Split(.Address(0, 0), ":")(a)
    End With
    
    Range(son_adres) = WorksheetFunction.Sum(Range(Selection.Address))
    
End Sub

. . .