Fill an array down a row vice columns

[jeffreybrown]

With the macro below the first Array will fill from G1:I1, but the second just puts One down G1:G3.

Is there a way to fill down the row instead on the columns? I know I'm probably missing something obvious.

Sub FillDown()
    Range("G1:I1") = Array("One", "Two", "Three")
    Range("G1:G3") = Array("One", "Two", "Three")
End Sub

 

[p45cal]

off top of head, so untested:

Range("G1:G3") = application.transpose(Array("One", "Two", "Three"))

 

[jeffreybrown]

Perfect thanks...