Hücre Birleştirmek

[Nadir46]

Saygı değer ustalar,
Aşağıdaki işlem ya da işlemleri yapacabileceğim bir makroya ihtiyacım var

A sütununda periyodik olmayan arada boşlukları olan bir liste var. Bu liste numerik olacağı gibi, alfabetik olabilir.
En üstteki veriye bakarak bir sonraki veriye kadar olan kısmı en üstteki veriyi de içine alarak hücreleri birleştirecek ve bir sonraki satırdaki işlemi de yaparak en son veriye kadar devam edecek.
Örnek dosya ektedir.
Destekleriniz için teşekkür ederim.

 

[Nadir46]

Arkadaşlar bir destek verseniz çok mutlu olacağım..

 

[dEdE]

Merhaba,
Aşağıdaki kodu sayfanın kod bölümüne kopyalayarak dener misiniz?

Sub Birleştir()
x = 2
For i = 3 To Range("A" & Rows.Count).End(3).Row
    If Cells(i, 1).Value <> "" Then
        Range("A" & x & ":A" & i - 1).Merge
        x = i
    End If
Next
End Sub