Не вижу смысла в таких заморочках, когда есть Empty

Притом, что ClearContents по сути делает тоже самое, только является методом. И цитата не та взята

- ClearContents как раз не приводит к отмене объединения - он выдаст ошибку, т.к. не может быть использован для только одной ячейки внутри объединенных.
И еще момент, который стоит упомянуть(мало ли кому пригодится) - если применять MergeArea - то удаление значений происходит во всех ячейках объединенной. На практике не всегда это нужно по нескольким причинам:
1. Не всегда значение только в левой верхней(мы же знаем, что есть разные трюки для сохранения значений всех ячеек)
2. Не всегда надо удалять именно значение левой верхней - иногда объединенная ячейка просто попадает под условие и по сути там ничего не надо удалять, т.к. по условию попадает под очистку та ячейка, которая не является верхней левой. Например, когда удаление происходит в диапазоне в виде строк: Cells(5,2).Resize(,6). При этом объединенная ячейка только в столбце В. В этом случае Empty сработает как ожидалось, ClearContents может удалить лишнее или выдать ошибку, т.к. MergeArea не может быть применено к группе ячеек.