UnMerge Method
Separates a merged area into individual cells.
expression.UnMerge
expression Required. An expression that returns a Range object.
Example
This example separates the merged range that contains cell A3.
With Range("a3")
If .MergeCells Then
.MergeArea.UnMerge
Else
MsgBox "not merged"
End If
End With