セルを選択して次のマクロを実行すると、選択されているセル範囲が連結されます。

Sub Sample1()

    Selection.Merge
    
End Sub

　次のマクロは、選択されているセル範囲を、同じ列方向のみで連結させます。
セルA1〜セルC3までが選択されていたとしたら、A1〜A3、B1〜B3、C1〜C3で
連結されます。

Sub Sample2()

    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim d As Long
    Dim i As Long

    a = Selection.Row
    b = Selection.Rows.Count
    c = Selection.Column
    d = Selection.Columns.Count

    For i = c To c + d - 1
        Range(Cells(a, i), Cells(a + b - 1, i)).Merge
    Next i

End Sub