title: Paste cell range to a single cell in mutiple lines
body: <p>I am trying to paste a range of cells into one cell in Excel.</p>
  
  <pre class="lang-vba prettyprint-override"><code>Sub MergeSelectedRowData2()
  
      Dim MyCell As Range
      Dim strMerge As String
  
      For Each MyCell In Sheets("Sheet1").Range("A1:B2")
  
          If strMerge = "" Then
              strMerge = MyCell.Value
          Else
              strMerge = strMerge &amp; Chr(32) &amp; MyCell.Value
          End If
  
      Next MyCell
  
      Cells(1, 3).Value = strMerge
  
  End Sub
  </code></pre>
  
  <p>This is the output<br>
  <img src="https://i.stack.imgur.com/8Df9q.jpg" alt="Sample Image"></p>
  
  <p>This is the output I want<br>
  <img src="https://i.stack.imgur.com/hPtlU.jpg" alt="Sample Image"></p>