セル結合

Range("E1:G1000").Merge
Range("E1").UnMerge

以下、テスト用コード

'確認メッセージ非表示
Application.DisplayAlerts = False

Dim iRow As Long
Dim sh As Worksheet

Set sh = ThisWorkbook.Worksheets("Sheet1")

'セル結合1
For iRow = 1 To 1000
    sh.Cells(iRow, 1).Resize(, 3).Merge
Next

'セル結合2。Trueを指定すると行単位の結合。
'範囲が広いと激重につき注意
sh.Range("E1:G1000").Merge True

'セル結合解除
For iRow = 1 To 1000 Step 2
    sh.Cells(iRow, 1).UnMerge
Next

'全部セル結合解除
sh.Cells.UnMerge

Set sh = Nothing

'確認メッセージを表示するよう変更
Application.DisplayAlerts = True

以上。