結合セルを含む空白行に下のデーターを上に詰める

質問

よろしくお願いします。
結合セルを含む空白行に、下のデーターを詰める。
下の場合の、【かわ、やま】は、１行目と２行目のセルを結合させています。また、【うみ、たに】は、３行目と４行目のセルを結合させています。

　　A 　　B 　　C 　　D 　　E
1　　　　　 100 AAA
　　　　 かわ やま
2 200 BBB

3　　　　　　　空白　空白
　　　　空白　　　　　　　　空白
4　　　　　　　空白　空白

5　　　　　　　 111 CCC
　　　　 うみ たに
6 222 DDD

これを、下のようにしたいのです。

　　A 　　B 　　C 　　D 　　E
1　　　　　 100 AAA　　　　　
　　　　 かわ やま
2 200 BBB

3　　　　　　　 111 CCC
　　　　 うみ たに
4 222 DDD

結合されているため下の構文では詰めることができません
Dim LastRow As Long
With ActiveSheet
LastRow = Range("A232").End(xlUp).Row
Range("B1:E" & LastRow).Sort Key1:=Range("B1"), Order1:=xlAscending
End With

回答No.1

hige_082

再投稿したのであれば、こちらは締め切ってください

http://qanda.rakuten.ne.jp/qa4928615.html

お礼

ありがとうございました。