Доброго времени дня!

Столкнулся с такой фигнёй - нужно протощить автоформулу в автофильтре для отобранных и видимых ячеек. Без VBA - выполняется элементарно. Через макрос записал процедуру в VBA - почему-то обнуляет первое значение и встаёт - вместо протаскивания автоформулы.
Поискал по форуму - ответа не нашёл...
Вод код:

Selection.AutoFilter Field:=3, Criteria1:="ЗП"
With Worksheets(NL).AutoFilter.Range.Columns(6)
Set iFilterRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible)
X1 = iFilterRange.Row
End With

Range("J" & X1 & "" .Formula = "=BH" & X1 & "*F" & X1 & "*R" & X1 & "*H" & X1 & "*I" & X1 & ""
Range("J" & X1 & "" .Select
Selection.FillDown

Без нижних 2-х строк - всё выполняется. Добавляю эти строки - не работает (Autofill тоже пробовал).

Помогите разобраться плиз...