Как удалить все строки кроме первой, после автофильтра

[myosotis]

Здравствуйте!
есть таблица, в которой несколько раз повторяется одна строка. Но она нужна только один раз, т.к. служит заголовками столбцов. С помощью фильтра выделены все эти строки. Как удалить в этой выборке все, кроме первой строки?
пример приложен.. там на 2 листе по кнопке срабатывает фильтр. как удалить строки 5,8?

[Скрипт]

myosotis, в ходе применения автофильтра, объект "AutoFilter" не предоставляет никаких данных о результате фильтрации.

Смысл фильтрации заключается в том, что ненужные строки скрываются. Т.е. нужно пройтись по строкам и посмотреть - скрыта строка или нет. Если не скрыта, то посмотреть - не является ли она первой строкой на листе. Если не является первой, то удалить.

Проверить, скрыта ли строка или нет, можно с помощью двух инструментов: Height и Hidden. Если строка скрыта, то Height равна нулю.


Примечание

1. Команда Hidden относится только к целой строке.
   Если вы просматриваете ячейку, то к целой строке можно так обратиться:
   

   ActiveCell.EntireRow

2. Когда удаляете строки на листе Excel, то не забывайте, что порядковые номера строк меняются. Поэтому проще удалять строки, идя снизу вверх.

[myosotis]

Нашла другое решение - через встроенное удаление дубликатов.

ActiveSheet.Rows.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo