Нужен макрос

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

Нужен макрос.
По столбцу В таблицы найти ячейку с заливкой, разъединить строки, значение ячейки перенести в столбец А на следующую строку, на прежнем месте написать "удалено".