Son Satırın Bir Altında Belli Aralığı Birleştirmek

[BYSERTTAS]

Herkese İyi Günler..
Arkadaşlar Son Satır İle Kayıt Yaptığım Formum var. Kayıtlar Bittikten sonra Son Satırın Bir Altında B İle D Hücrelerini Birleştirmem Gerekiyor. Bu Kısma "Genel Toplam" Yazıcam Bir türlü Birleştirme İşlemini Yapamadım. Yardımcı Olurmusunuz.
son = WsTekBordro.Range("a65536").End(3).Row + 1
alt alta kayıt ekledim diyelimki son satırım 25 oldu
26. satırın B İle D sutunlarını birleştirme gerekiyor.

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim SonSatir As Long
    SonSatir = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("B" & SonSatir & ":D" & SonSatir).Merge
    Range("B" & SonSatir) = "Genel Toplam"
End Sub

 

[BYSERTTAS]

Çok Teşeşkkürler Üstadım Saygılar..

 

[Muzaffer Ali]

Rica ederim. Kolay geslin.