Как скопировать диапазон автофайлера без заголовка

Question

Я довольно новичок в VBA. Я пытаюсь скопировать данные из отфильтрованных строк в Excel и вставить их на другой лист в той же книге. Столбец, к которому применяется фильтр, имеет пустые ячейки и ячейки, заполненные данными, используемыми для фильтрации. Поскольку я не хочу, чтобы заголовок копировался, я попытался изменить размер диапазона, но по какой-то причине, когда эта часть выполняется, код выбирает только 1 строку данных. Когда я не изменяю размер, заголовок копируется и как код, если он является частью цикла, в TAB назначения я получаю заголовок, скопированный несколько раз. Не могли бы вы помочь мне не копировать заголовок?

wb3.Sheets(tTab2).Range("A1:AD1").AutoFilter field:=6, Criteria1:="ORANGE"
wb3.Sheets(tTab2).AutoFilter.Sort.SortFields.Add Key:=Range("H1:H" & lng), 
         SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
wb3.Sheets(tTab2).AutoFilter.Sort.Apply

With wb3.Sheets(tTab2).AutoFilter.Range
   Set rng1 = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        End With