arrays para range tem que ser variantes

Sub teste()
    Dim meuArray() As variant
    meuArray = Plan1.Range("A1:A5").Value2
End Sub

no caso vai ser assim
meuArray(Linha, coluna)

sempre começando com 1

como vc pegou uma coluna e 5 linhas
seria o mesmo que
Array (1 to 5 , 1 to 1)

o mesmo vc pode fazer para colar valores na range
Plan1.Range("A1:A5").Value2= meuArray
se a range for menor que o array vai colar apenas os valores que cabem começando do 1, se a range for maior as celulas faltantes vão ser preenchidas com #Valor