VBAでセルの結合と分割（解除）をお願いします

質問

宜しくお願いいたします。
H５とH６のどちらかに数字か記号が入っています以下３０個のセルも同様です、H６にデータを入れH5とH６を結合するとセルの認識はH5を認識するのでH6のデータは他へコピー出来ないので結合したセルを再度分割して一行に並び変えているのに下記の構文で実行しているのですが結合にかなりの時間がかかっています。分割は瞬時にできています。
お願いしたい件は即時もしくはなるべく早い方法がありましたらお願いいたします。

こんな感じで作りました
Sub 結合()
For a = 8 To 38
Range(Cells(5, a), Cells(6, a)).Select
Selection.Merge
Range(Cells(7, a), Cells(8, a)).Select
Selection.MergeSub
以降２９個
　　　・
　　　・
　　　・
Next a
End Sub

分割()
Dim range1 As Range
Set range1 = Range("H5:AL5")
range1.MergeCells = False
Set range1 = Range("H7:AL7")
range1.MergeCells = False
以降２９個
　　・
　　・　
　　・
End　Sub
良い方法をご伝授宜しくお願いいたします

回答No.1

bin-chan

二重ループじゃダメですか？

For nRow = 8 To 38
　for nCol = 5 to 47 step 2 '47が間違ってたら置き換えてください
　　Range(Cells(nol, a), Cells(nCol+1, nRow)).Merge
　next nCol
next nRow

お礼

有難うございます。
このままではエラーで実行出来ません。
A１とA2、B1とB2、C1とC2のセルの結合方法が知りたいのです。