VBA поиск последней заполненной строки.

[riniks17]

Уважаемые знатоки. Не могу решить одну задачу. Вернее три. Есть список работников с датами приездов и отъездов. Незакрытые записи формируют список приездов и отъездов. Хотелось бы, что бы закрытые записи через неделю перемещались на лист Архив. Для истории. А просматривались только оставшиеся записи на странице Текущий архив. Думаю, что код будет быстрее работать. Хотел определить последнюю заполненную строку в Архиве, что б записи перемещались и накапливались там, но что-то делаю не так.
Потом в графиках приездов и отъездов хотелось что бы записи разбивались по блокам (недели). Они и так разбиты сортировкой, но перед каждым блоком надо вставить пустую строку с номером недели. В грфике приездов сортировка по приездам, в отъездах соответственно по отъездам. И последнее. Как после сортировки пронумеровать записи? До сортировки в цикле получилось, а после всё перепутывается. Заранее спасибо всем откликнувшимся.