Удаление активой строки с одного листа на другой

[MilanAC]

Я создаю Базу данных в экселе. Прикрепил ее. Вобщем сделал кнопку Фильтрация под основным меню Стандартная. При нажатии на нее появляется форма с кнопками. Там создал кнопки, которые сортируют Базу данных по дате (по убыванию и возрастанию).

В чем вопрос. Хочу прописать в VBA удаление строки с листа БазаДанных с переносом ее на Лист Архив. То есть допустим у меня активна (то есть выделена) ячейка А4, мне надо, чтобы при нажатии на кнопку Удалить активную строку из Базы Данных в Архив удалялась эта строка из листа База Данных и параллельно переносилась на лист Архив. Ну и соответственно, чтобы при ее удалении (если над ней и под ней есть еще строки с данными, то они перемещались на одну строку вверх). Короче, чтобы не было после удаления строки пустой строки в Базе данных, чтобы переместились вверх остальные данные. Надеюсь понятно выразился.

Заранее благодарю