[Pliomera]

Да уж. Гвозди забивать микроскопом. Циклы, объекты, куча переменных....

Решение:

Код:

Sub UNM2()
ActiveCell.MergeArea.UnMerge
Selection.Value = ActiveCell
End Sub

Всё.