Sub arraytest()
Dim myarray(1 To 10) As Variant
For i = 1 To 10
myarray(i) = i
Next
For i = 1 To 10
Range("B" & i).Value = myarray(i)
Next
End Sub