title: Copy range values into array without for loop
body: <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>