Автофильтр через макрос

[kuznetsovSergey]

Люди добрые ) помогите пожалуйста кусочек кода нужен. Есть такая функция , как автофильтр в Excel. Его запустить через макрос можно примерно так:

Код: Выделить всё

Sub Macros()
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=номер столбца, Criteria1:="критерий автофильтра"
End Sub

И в итоге, он выводит все строки, в которых в нужном столбце, есть необходимый критерий. Теперь вопрос:

Как выделить ту область , которую нашёл автофильтр. Потому что номера ячеек то он выводит произвольно, не диапазоном. Как выхватить все ячейки с найденным критерием, и предположим удалить их ?

Заранее спасибо!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
ответ был найден самостоятельно, кому интересно решение, вот код:

Код: Выделить всё

   Sub Макрос()
      Selection.AutoFilter Field:=[номер столбца], Criteria1:="критерий автофильтра"
      Rows("2:2").Select
      Range(Selection, Selection.End(xlDown)).Select
      Selection.SpecialCells(xlCellTypeVisible).Select
      Selection.Delete Shift:=xlUp
  End Sub