Soru En Son Dolu Satırın Altına Toplam Almak/Silme

[bulentkars]

Arkadaşlar Merhaba,

A2:H sütününda dolu olan en alt hücrenin altına B2:H satırların toplamını almak istiyorum. aynı şekilde silmek istiyorum. Örnek Dosya Ekte yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[veyselemre]

Sub toplamAl()
    With Cells(Rows.Count, 1).End(3).Offset(1).Resize(, 8)
        .FormulaR1C1 = "=sum(R2C:R[-2]C)"
        .Value = .Value
        .Cells(1).Value = "Toplamlar"
        Range("A1:H1").Copy
        .PasteSpecial xlFormats
        .BorderAround xlContinuous
    End With
End Sub

Sub toplamSatiriniSil()
    Dim f As Range
    Set f = Range("A:A").Find("Toplamlar")
    If Not f Is Nothing Then f.EntireRow.Delete
End Sub

 

[bulentkars]

Veysel Emre Bey,

Çok teşekkür ederim. Elinize sağlık