title: Fill an Array with Values to the next empty Row
body: <p>I am trying to fill an array from user inputs in an Excel worksheet. Currently I have the worksheet with only two targets listed but I want the capability for a user to define endless amounts of targets if desired.
  my code:</p>
  
  <p>The stop is there to debug, I get a subscript out of range on the Targets (i, 1) line. The while looks for values in a specific column and goes down rows until it detects a blank and then stops. I don't know how to get a value, once it is detected to be put into my array.</p>
  
  <p>I have tried moving the ReDim of targets inside the loop and inside the while loop.</p>
  
  <pre><code>Dim max_I As Byte, tgt_N As Double
  Dim Targets()
  Dim RadarRangeDenomenator()
  Dim RelativePower()
  Dim PowerAmplitude()
  
  Call Activ8_Sheet("Signal")
  
  tgt_N = 0
  max_I = 0
  
  While Cells(max_I + 8, 3).Value &lt;&gt; ""
      tgt_N = tgt_N + 1
      max_I = max_I + 1
      For i = 1 To max_I
          Targets(i, 1) = Cells(max_I + 8, 3)
      Next i
      Stop
  Wend
  
  ReDim Targets(tgt_N)
  
  MsgBox (Targets(1, 1))
  </code></pre>
  
  <p>What I want is to have a single dimension array (many rows but only 1 column) of values that are listed on the Excel sheet.</p>