スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、特定の列でデータが連続した場合セルを結合します。
アクティヴシートのＡ列に入力されているデータを判断しています。

Sub Sample()

    Dim myRng As Range, myRow As Long

    Set myRng = Range("A1")

    For myRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        With Cells(myRow, 1)
            If .Value = .Offset(1).Value Then
                Set myRng = Union(myRng, .Offset(1))
            Else
                Application.DisplayAlerts = False
                myRng.Merge
                Application.DisplayAlerts = True
                Set myRng = .Offset(1)
            End If
        End With
    Next

End Sub