Copy range values into array without for loop
<p>I would like to copy Range values into an array, and then copy the array into new range like below.</p>

<pre><code>Sub Macro1()
'
' Macro1 Macro
Dim Arr As Variant
Arr = Range("A1:A3").Value
Range("C1:E1").Value = Arr
End Sub
</code></pre>

<p>But, the result is as below.</p>

<p><a href="https://i.stack.imgur.com/HaaY6.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/HaaY6.png" alt="enter image description here"></a></p>

<p>What's wrong with this code?</p>

<p>Are there any ways to tranfer range values into new range without for loop?</p>