title: Concatenate multiple cells in a column into one cell
body: <p>I need to combine multiple cells in a column in one cell.</p>
  
  <p>Data is present in Column A: </p>
  
  <pre><code>0100
  0800
  ABCD
  LMKQ
  .
  .
  .
  </code></pre>
  
  <p>and so on</p>
  
  <p>Cell B2 should have the below value:</p>
  
  <p>'0100', '0800', 'ABCD', 'LMKQ'.... and so on</p>
  
  <p>My code identifies all the data but populates just the data in last cell:</p>
  
  <pre><code>Sub concatMyData()
  
      For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
          Cells(2, "B").Value = "'" &amp; Cells(i, "A").Value &amp; " '" &amp; Cells(i + 1, "A").Value &amp; "'"
      Next i
  
  End Sub
  </code></pre>