VBA-код для автозаполнения значений с помощью формулы «INDEX»

Question

Мне нужен макрос для заполнения столбца D в Sheet2 значениями, которые ищутся в Sheet1 в соответствии с несколькими критериями.Код должен автоматически заполнять только значения, а не формулы, из формулы Index и Match.

Вот что я получил до сих пор:

With ActiveSheet                                       
    With .Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
             .FormulaArray = "=INDEX(Sheet1!C,MATCH(Sheet2!R2C1& Sheet2!R2C2& Sheet2!RC3, Sheet1!C[-3]& Sheet1!C[-2]& Sheet1!C[-1],0))"
             .Value = .Value
    End With
End With

По какой-то неизвестной мне причинеМой код не будет автоматически заполнять столбец правильными значениями, вместо этого он будет реплицировать значение из формулы только в первой ячейке, поэтому у меня будет столбец с повторяющимися числами.