You don't need code . If "TestArray" and "Result" are vertical ranges
then on the worksheet, array entered into C1:C3

=TestArray*Result

If "TestArray" and "Result" are horizontal ranges then

=TRANSPOSE(TestArray*Result)

Alan Beban



Daviv wrote:
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