title: Entire Range fills with only 1st item of array
body: <p>I have two arrays, both with rows=intAllNumsRows. The first array (arrAllNums) is Public Dim'd as Integer and is 6 columns wide, i.e. arrAllNums(1 to intAllNumsRows, 1 to 6). The second (arrAllNumsDates) is Public Dim'd as Date and is just 1 column wide, i.e. arrAllNumsDates(1 to intAllNumsRows). The dates correspond to their arrAllNums data.</p>
  
  <p>As you can see in the code below, the Ranges are resized to rows equaling intAllNumsRows and their respective arrays are placed into them. The first Range and its array work just fine. The proper cells on the sheet have the data 6 columns wide and the correct number of rows. All the data shows.</p>
  
  <p>The second Range is done exactly the same way with arrAllNumsDates, but only the first date...the date coming from arrAllNumsDates(1)...is placed in <em>all the cells of the range</em>. In other words, if arrAllNumsDates(1)=#1/1/2014#, then that is the date that is placed in every cell from AA5 through to the last cell row in the Range. The same date is in every cell.</p>
  
  <p>As you can see, I've used Debug.Print to verify the actual dates stored in the array. They're perfect. There is nothing wrong with the array. And since Range does in fact display dates in all the correct cells, it seems that the Range is resizing properly. There is a date in all the proper cells. The confounding problem is that it is <em>the same date</em>, the first date in the array.</p>
  
  <p>Any ideas?</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  
  Dim rng As Range
  
  Set rng = Sheet1.Range("U5")
  rng.Resize(intAllNumsRows, 6) = arrAllNums
  
  Set rng = Sheet1.Range("AA5")
  rng.Resize(intAllNumsRows, 1) = arrAllNumsDates
  
  Set rng = Nothing
  
  
  '**************************
  Dim intI As Integer
  
  For intI = 1 To intAllNumsRows
      Debug.Print arrAllNumsDates(intI)
  Next
  
  End Sub
  
  Private Sub CommandButton1_Click()
  </code></pre>