Returns a Range object that represents the merged range containing the specified cell. If the specified cell isn't in a merged range, this property returns the specified cell. Read-only Variant .
expression . MergeArea
expression A variable that represents a Range object.
The MergeArea property only works on a single-cell range.
This example sets the value of the merged range that contains cell A3.
Set ma = Range("a3").MergeArea
If ma.Address = "$A$3" Then
MsgBox "not merged"
Else
ma.Cells(1, 1).Value = "42"
End If