I trying to mulitply range "TestArray" and "Result" to make array one and
transpose it on C1 to C3. "TestArray" and "Result" has 3 numbers each.

Sub Sheet_Fill_Array()
Dim one As Integer
one = SumProduct("TestArray", "Result")
Range("C1:C3").Value = Application.WorksheetFunction.Transpose(one)

End Sub
--
Thanks!