Excel VBA Макросы. Как разъединить объединённые ячейки с помощью макроса?

[Посетитель]

Как разъединить объединённые ячейки с помощью макроса?

[Администратор]

Макрос разъединяет ячейки в выделенном фрагменте.

Sub Макрос()
    Selection.UnMerge
End Sub

[Посетитель]

спасибо