Satır Birleştirme

[Feylosof]

İyi hafta sonları diliyorum

Arkadaşlar isteğimi kısaca özetlemeye çalışayım.
Verilerin bulunduğu ve aralıklarla boş olan satırlarla sınırlı olmak şartıyla üstteki dolu satırdan başlayarak alttaki dolu satıra kadar hücre birleştirme yapacak bir kod konusunda yardımcı olur musunuz?
Örnek dosya ve örnek uygulama ektedir.

 

[ÖmerFaruk]

Sub Birleştir()
    ilk = 2
    For i = 3 To Range("B2").End(xlDown).Row
        If Range("A" & i) <> "" Then
            Range("A" & ilk, "A" & i - 1).Merge
            Range("C" & ilk, "C" & i - 1).Merge
            Range("E" & ilk, "E" & i - 1).Merge
            ilk = i
        End If
    Next i
    If ilk < i - 1 Then
        Range("A" & ilk, "A" & i - 1).Merge
        Range("C" & ilk, "C" & i - 1).Merge
        Range("E" & ilk, "E" & i - 1).Merge
    End If
End Sub

 

[Feylosof]

@ÖmerFaruk hocam süpersiniz. çok teşekkür ederim.