[Gustav]

Цитата:

Сообщение от Gustav

 
Sub Macro2()
    Dim rng As Range
    Set rng = Range("B2:C4")
    
    rng.Insert xlShiftDown 'где константа xlShiftDown = -4121
    rng.Copy rng.Offset(-rng.Rows.Count)
End Sub

Похоже, ларчик открывался очень просто...

 
Sub Macro22()
    Dim rng As Range
    Set rng = Range("B2:C4")
    
    If rng.MergeCells Then
        Set rng = rng.Range("A1").MergeArea
    End If
    
    rng.Insert xlShiftDown 'где константа xlShiftDown = -4121
    rng.Copy rng.Offset(-rng.Rows.Count)
End Sub

Оно??

P.S. Соответственно, добавка в метод:

if (comRange.MergeCells())
{
    comRange = comRange.Range('A1');
    comRange = comRange.MergeArea();
}