title: Macro - Copy all from sheet 1 Column A to everything in sheet 2 column A and insert into sheet 3 colums a and b
body: <p>I'm looking for a macro which will allow me to copy everything from sheet 1 column A against everything in sheet 2 column A and then insert them into sheet 3 as columns A and B.</p>
  
  <p>I'll demonstrate what I'm looking for.</p>
  
  <pre><code>Sheet 1
  A        
  ------
  Ben               
  Jerry             
  Steve   
  
  
  Sheet 2
  A       
  ------
  Code A           
  Code B           
  Code C            
  </code></pre>
  
  <p>Once macro is ran the Outcome results should look like:</p>
  
  <pre><code>Sheet 3
  A       | B       
  --------+---------
  ben     |Code A    
  ben     |Code B    
  ben     |Code C    
  steve   |Code A    
  steve   |Code B    
  steve   |Code C        
  jerry   |Code A    
  jerry   |Code B    
  jerry   |Code C    
  </code></pre>
  
  <p>The following is what I have attempted with</p>
  
  <pre><code>Sub TransferData()
  
  'Transfer data
  Sheets("sheet1").Range("A1:A4").Copy Worksheets("Sheet3").Cells(1, "A")
  
  'Transfer data
  Sheets("sheet2").Range("A1:A4").Copy Worksheets("Sheet3").Cells(1, "B")
  End Sub
  </code></pre>