Доброго времени суток.

Дано: таблица на одном листе, штук 7 столбцов, в последнем ячейки либо пустые, либо со словом "done"

Надо: как только в пустой ячейке последнего столбца появляется слово "done", эта строка вставляется на соседний лист в аналогичную таблицу, только без столбца с "done", и удаляется из этой.

В наследство от неизвестного предшественника мне достался вот такой код:


Код был привинчен к кнопке, которой на листе нет и потому не работал.
При тесте выяснилось, что переносит он только ту строку, в которой активна ячейка с "done", а желательно бы все такие из таблицы, и то, что перенос осуществляется некорректно - см. картинку.
Поправить, чтобы перебрать весь лист, думаю, я могу сама (ActiveCell.Row на Rows.Count), а вот как исправить проблему съезда столбцов, я не знаю.
Помогите, пожалуйста.

Прошу прощения за картинку, не могла видеть, что ее так растащит, а отредактировать уже не могу