Filling Range With Array

I have a quick question in relation to filling a range with an array.

When I use the following code:

Code:
Sub justdoit()
s = Array(1, 2, 3)
Range("A1:C1") = s
End Sub

It works fine. but when I try to populate the range in rows instead of colums, the array value stays as the first value.

Code:
Sub justdoit()
s = Array(1, 2, 3)
Range("A1:A3") = s
End Sub

I'm experimenting with arrays and would like to get better at them, but this has me stumped for the moment. How to get the values to work going down, like they do going across.

The above code is a small sample of data, I am wating to replicate with using over 80K lines and cell by cell is too slow.