Объединить столбцы в таблице с сохранением текста по условию

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

Нужен макрос, который будет делать следующие действия:
в документе есть таблица по закладке
объединить 4 и 5 столбец в таблице
каждую объединенную ячейку заполнить текстом из 5 столбца, если она не пустая, если 5 столбец пустой, заполнить текстом из 4го.