Put Array Values Into Range

I would like to fullfil a range a cell with different strings. As the cells are jointed to each others, I would like to pass the string array to the range and not to pass each string to each cell, to spend time.

I mean, with the function

Dim stTxt(3) As String
range(Cells(1,1),Cells(3,1)).value=stTxt()

But I have some difficulties with this function:
-if the range is a column, the function works, but if the range is a row, then only the first value of the array is passed, and to all the cells of the range
-I didn't manage to use this function when using

Range(Cells(x,y),Cells(z,t))

and when the range is in another worksheet. I need to use

Cells(x,y).resize(z-x,t-y)


(I'm using Excel 2000).

how I can pass correctly my string array to a row of cells? (cf 1. point).