title: Copy three columns into one column in Excel VBA
body: <p>I need help to create a Excel VBA macro. I have a workbook contains 4 worksheets. Coulmn "A" in worksheet number 1, 2 and 3 are filled with data. I need to copy these data into Sheet 4 Column "A". I already done this by using this code but it dosn't work (it only copy the data by replacing ..). </p>
  
  <p>EXAMPLE (I need to do following)</p>
  
  <pre><code>(Sheet 1 Col. A)
  1
  2
  3
  4
  
  (Sheet 2 Col. A)
  5
  6
  
  (Sheet 3 Col. A)
  7
  8
  9
  </code></pre>
  
  <p>Need to copy all above in sheet 4 Col. A as follows</p>
  
  <pre><code>1
  2
  3
  4
  5
  6
  7
  8
  9
  </code></pre>
  
  <p>So, I wrote a code as follows </p>
  
  <pre><code>Sub CopyColumnToWorkbook()
      Dim sourceColumn As Range, targetColumn As Range
  
      Set sourceColumn = Worksheets("Sheet1").Columns("A")
      Set targetColumn = Worksheets("Sheet4").Columns("A")
  
      sourceColumn.Copy Destination:=targetColumn
  End Sub
  
  Sub CopyColumnToWorkbook2()
  
      Dim sourceColumn As Range, targetColumn As Range
  
      Set sourceColumn = Worksheets("Sheet2").Columns("A")
      Set targetColumn = Worksheets("Sheet4").Columns("A")
  
      sourceColumn.Copy Destination:=targetColumn
  End Sub
  
  Sub CopyColumnToWorkbook2()
  
      Dim sourceColumn As Range, targetColumn As Range
  
      Set sourceColumn = Worksheets("Sheet3").Columns("A")
      Set targetColumn = Worksheets("Sheet4").Columns("A")
  
      sourceColumn.Copy Destination:=targetColumn
  End Sub
  </code></pre>
  
  <p>This above coding is not work as I need. Someone please help me to do as in above EXAMPLE.</p>
  
  <p>Thank you very much.</p>