Son dolu satıra göre işlem yapmak

[Gold_Savt]

C4 ten başlamak üzere C sütununun en son dolu satırında yapılacak işlem şöyle: (Örnek olarak Son dolu satır C50 olsun)
B50 ile B51 birleşecek .Merge
E50 ile E51 birleşecek .Merge
F50 ile F51 birleşecek .Merge
(Not: kaynak olan C sütununa dokunulmayacak)

 

[Muzaffer Ali]

Merhaba.

Sub Test1()
    Dim Son As Long
    Son = Cells(Rows.Count, "C").End(xlUp).Row + 1
    Range("B" & Son).Resize(2, 1).Merge
    Range("E" & Son).Resize(2, 1).Merge
    Range("F" & Son).Resize(2, 1).Merge
End Sub

Yada

Sub Test2()
    Dim Son As Long
    Son = Cells(Rows.Count, "C").End(xlUp).Row + 1
    Range("B" & Son & ":B" & Son + 1).Merge
    Range("E" & Son & ":E" & Son + 1).Merge
    Range("F" & Son & ":F" & Son + 1).Merge
End Sub

 

[Gold_Savt]

Teşekkür ederim hocam.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.