セルの結合、結合解除をする。

指定した範囲のセルの結合をするにはMergeメソッド、結合の解除にはUnmergeメソッドを利用します。
Mergeメソッドの引数に True を指定することでセルの結合を行ごとに結合させる（列は結合させない）事ができます。
また結合させたいセルを指定範囲内の複数のセルに値が入力されている場合は、結合時に範囲内の左上の値以外は破棄されます。
※サンプルコードではデータが破棄される場合に表示される警告メッセージをDisplayAlertsで表示させないようにしています。

　●セルの結合

'******************************************************************
'　セルの結合
'******************************************************************
Sub CellMerge()
    
    '警告の表示を停止
    Application.DisplayAlerts = False

    '指定の範囲をセルを結合
    Sheets("Sheet1").Range("B2:E5").Merge

    '指定の範囲をセルを行単位で結合
    Sheets("Sheet1").Range("B6:E10").Merge True

    '警告の表示を再開
    Application.DisplayAlerts = True
    
End Sub

　■実行前

　■実行結果

　●セルの結合解除

'******************************************************************
'　セルの結合解除
'******************************************************************
Sub CellUnMerge()

    '指定された範囲内にあるセルの結合をすべて解除
    Sheets("Sheet1").Range("B1:B10").UnMerge

End Sub

　■実行結果