Load Contents of array into Range

What needs to be done to this code to get the contents of the array into a range? I don't know how to get the loops working together.

Dim strOrder_List(0 To 50) As Integer
x = 0
For Each cell In Range("Stock_QTY")
    strOrder_List(x) = cell.Value
    x = x + 1
Next
For Order = LBound(strOrder_List) To UBound(strOrder_List)
    For Each cell In Range("Order_QTY")
    cell.Value = strOrder_List(Order)
Next
Next

Thanks.