Soru Son Satırın altında hücre birleştirme

[sirkülasyon]

 Dim SonSat As Long
    
    Sheets("Tablo").Select
    
    SonSat = Cells(Rows.Count, "b").End(3).Row + 1
    If SonSat < 8 Then SonSat = 8
    Range("b" & SonSat).Select
    
    ActiveCell.Offset(0, 0).Value = TextBox1.Text * 1
    ActiveCell.Offset(0, 1).Value = TextBox2.Value
    ActiveCell.Offset(0, 2).Value = TextBox3.Value
    ActiveCell.Offset(0, 3).Value = TextBox4.Value
    ActiveCell.Offset(0, 4).Value = TextBox5.Value
    ActiveCell.Offset(0, 5).Value = TextBox6.Text * 1
    ActiveCell.Offset(0, 6).Value = TextBox7.Text * 1
    
    MsgBox "Kayit islemi Tamamlandi", vbInformation
    
With Sheets("Tablo")

        .Range("G" & .Range("G65536").End(3).Row + 1) = WorksheetFunction.SumIf([G8:G100], ">0", [G8:G100])
        .Range("H" & .Range("H65536").End(3).Row + 1) = WorksheetFunction.SumIf([H8:H100], ">0", [H8:H100])
    End With

Yukarıda ki kod ile kayıt yaparak son satıra toplam alıyorum. Bu koda ek olarak da kayıt ettikçe son satırın B:F hücrelerini birleştirerek "TOPLAM" yazmak istiyorum. Nasıl yapmam lazım yardım edebilir misiniz?

 

[muygun]

Merhaba;
Ekteki örnek uygulamadaki kodlardan faydalanabilirsiniz.
İnceleyin.
İyi çalışmalar.

 

[sirkülasyon]

Muygun bey sağ olasınız