title: Excel VBA Macro - Concatenating in a Loop
body: <p>Trying to make a Macro that will insert a row every 1000th row in a spreadsheet and insert a concatenation of the previous 1000 rows of a column into a single cell on that 1000th row in a different column.  </p>
  
  <p>I am using this code to insert a row every 1000th row:</p>
  
  <pre><code>Sub Insert1000()
      Dim rng As Range
  
      Set rng = Range("A2")
      While rng.Value &lt;&gt; ""
          rng.Offset(1000).EntireRow.Insert
  
          'code insert csv of 1000 previous rows into a single cell
  
          Set rng = rng.Offset(1001)
      Wend
  End Sub
  </code></pre>
  
  <p>Apologize if my description was not clear.  Here is a clip of what I would like my results to be.  </p>
  
  <p><img src="https://i.stack.imgur.com/nc3Ss.jpg" alt="Clip"></p>
  
  <p>Any help would be appreciated.</p>