Populate a range with an array from VBA

maybe this example will help you

Sub ert()
Dim arr(1 To 20), i&
For i = 1 To 20
    arr(i) = i ^ 2
Next i
Range("A1:A20").Value = Application.Transpose(arr)
Range("B1").Resize(, UBound(arr)).Value = arr
End Sub