Как скопировать значения во весь столбец после применения фильтра

Question

В определенном столбце мне нужно отфильтровать значение и скопировать все видимые значения в столбце и вставить его на другой лист.

Я использовал приведенный ниже код, однако он не работает, когда у меня только одинстрока без заголовка поста я фильтрую данные.

 Worksheets("Sheet1").UsedRange.AutoFilter Field:=6, Criteria1:=Worksheets("Sheet2").Range("A" & i).Value
      Range("S1").Select
    Range("S2", Cells(Rows.Count, "S").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy