У меня проблема с использованием массива в формуле Vlookup

Question

В Excel VBA моя проблема в том, что моя формула кода vlookup не работает с массивом.Появляется ошибка «Несоответствие типов».

Dim MyArray() As Variant
ReDim MyArray(1 To 4, 1 To 4)

For z = 1 To 4
    For g = 1 To 4
        MyArray(z, g) = shMap.Range("mcompany").Cells(z, g).Value
    Next g
Next z

shAll.Range("I2").FormulaR1C1 = "=VLOOKUP(RC[-8]," & MyArray & ",4,FALSE)"
shAll.Cells(2, 9).AutoFill Destination:=shAll.Range("I2:I" & LastRow)