EXCEL VBA で行の削除（セル結合されている場合）

　VBAで条件に合う行を削除しようとしました。

Range("A1:A4").MergeCells = True の状態です。

3行目を消す操作をマクロ記録すると

Rows("3:3").Select
Range("B3").Activate
Selection.Delete Shift:=xlUp

となります。

　空白のシートでこれを通しで実行すると

Range("A1:A4").MergeCells = True
cells(1,2)=1
cells(2,2)=2
cells(3,2)=3
cells(4,2)=4
cells(5,2)=5
Rows("3:3").Select
Range("B3").Activate
Selection.Delete Shift:=xlUp

　上４行が消されてしまいます。

Rows("3:3").Select　が　Rows("1:4").Select　になるようです。

　この場合、３行目だけ消すには、　

Range("A1:A4").MergeCells = True
Cells(1, 2) = 1
Cells(2, 2) = 2
Cells(3, 2) = 3
Cells(4, 2) = 4
Cells(5, 2) = 5
Rows(3).Delete

となります。