Você precisa transpor a matriz

Sub teste2()


Dim MyArray(1 To 6) As Variant


Dim i As Integer

For i = 1 To 6

MyArray(i) = i

Next i

Plan1.Range("A1:A6").Value = worksheetfunction.transpose(MyArray)


End Sub

Bom dia, Klark, bom dia Skulden

Para atribuir uma matriz a um range, a matriz precisa ser bidimensional com os subscritores começando em 1. Então o colega Skulden tem razão em afirmar que usar a função Transpor resolve o problema, pois essa função de planilha inteligentemente transforma a matriz unidimensional em bidimensional.

Caso vc queira fazer puramente com matrizes, defina as duas dimensões, ambas começando em 1 (a primeira representando as linhas, a segunda as colunas):

Sub teste1()
  Dim MyArray(1 To 6, 1 To 1) As Variant
  Dim i As Integer
  For i = 1 To 6
     MyArray(i, 1) = i
  Next i
  Plan1.Range("A1:A6").Value = MyArray
End Sub