Range.MergeArea (Excel)

Devuelve un objeto Range que representa el rango combinado que contiene la celda especificada.

La propiedad MergeArea sólo funciona en rangos de una sola celda.

Dim rngMergeArea As Range
Set rngMergeArea = ActiveCell.MergeArea