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

Selection.AutoFilter Field:=3, Criteria1:="<" & Format(Range("r1"), "#"), Operator:=xlAnd
       result.Range("r1").copy
       .Range("result[Срок оплаты]").SpecialCells(xlCellTypeVisible).PasteSpecial Paste:=xlPasteValues
       On Error Resume Next
       result.ShowAllData
Проблема в том, что он вставляет не с первой видимой ячейки, а со второй(не считая заголовка) и добавляет в конце таблицы еще 1 строку, в которую вставляет значение ячейки r1