Протащить формулу до конца

[DMITRIY_78]

Ребята подскажите пожалуйста! есть макрос

Dim iLastRow As Long 

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(iLastRow, "A").FormulaArray = "=IFERROR(INDEX(R2C2:R100C2,MATCH(0,COUNTIF(R[-19]C[7]:R1C8,R2C2:R100C2)+IF(COUNTIF(R2C2:R100C2,R2C2:R100C2)>1,0,1),0)),"""")"

Selection.AutoFill Destination:=Range(iLastRow & "A"), Type:=xlFillDefault 
здесь не могу протащить формулу до конца дело в том что я не знаю какая будет строка последней как правильно в этом случае указать диапазон

[Aleksandr H.]

Range("A" & iLastRow )

не?

[DMITRIY_78]

Aleksandr H., неа!

[Aleksandr H.]

Выше в коде, где тяните G столбец, работает? Здесь по аналогии делайте

[DMITRIY_78]

Aleksandr H., согласен , только я не знаю начальный диапазон , формула выше об этом говорит

[Aleksandr H.]

вашпе непонятно.
Формулу массива вы вставили в последнюю ячейку столбца А. Куда хотите протягивать, к какой ячейке?

p.s.
Нельзя сделать тестового файла в екселе? не кашпировские ведь - по фотографии лечить.

[DMITRIY_78]

Aleksandr H., пример приложил на листе р3а кнопка, протащить формулу надо с формированного отчета строка -20- но она может и менятся, последняя строка в макросе закоментирована вот она и есть ошибка

[Aleksandr H.]

Сообщение от DMITRIY_78

протащить формулу надо с формированного отчета строка -20- но она может и менятся

От A20 к какой ячейке хотите тянуть?
Походу кроме вас никто не понимает что вам надо.

[DMITRIY_78]

Aleksandr H., я не думаю что столь важно, ведь диапазон можно и увеличить, если так важно то хотя бы и на 10 строк протянуть

[Aleksandr H.]

Вместо

'Cells(iLastRow, "A").FormulaArray =

пишем

Range("A" & iLastRow).Resize(10).FormulaArray =

и тянет на 10 вниз