title: Excel - Mix multiple columns into one column
body: <p>I have two columns</p>
  
  <pre><code>          Column 1 Column 2
  row 1:       A        1
  row 2:       B        2
  row 3:       C        3
  </code></pre>
  
  <p>I want to mix column like this</p>
  
  <pre><code>          Column 1 
  row 1:       A      
  row 2:       1        
  row 3:       B
  row 4:       2
  row 5:       C
  row 6:       3
  </code></pre>
  
  <p>I tried many examples but none of them worked.I am newbie to <code>vba</code>. Please help
  I tried one below from another stack overflow example.but it will add only on last cell off column.I don't know how to change it.</p>
  
  <pre><code>Sub CombineColumns()
  Dim rng As Range
  Dim iCol As Integer
  Dim lastCell As Integer
  
  Set rng = ActiveCell.CurrentRegion
  lastCell = rng.Columns(1).Rows.Count + 1
  
  For iCol = 2 To rng.Columns.Count
      Range(Cells(1, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Cut
      ActiveSheet.Paste Destination:=Cells(lastCell, 1)
      lastCell = lastCell + rng.Columns(iCol).Rows.Count
  Next iCol
  End Sub
  </code></pre>