title: Copy multiple columns and paste to another workbook in different order
body: <p>Beginner question here.  Here is the code I've been working on</p>
  
  <pre><code>Private Sub Copy()
  
      Dim wb1 As Workbook
      Dim wb2 As Workbook
  
      Set wb1 = ThisWorkbook
  (wb2 defined somewhere here)
  With wb1.Sheets(1)
  .Columns("A").Copy Destination = wb2.Sheets(2).Range("A1")
  .Columns("B").Copy Destination = wb2.Sheets(2).Range("C1")
  .Columns("C").Copy Destination = wb2.Sheets(2).Range("R1")
  ....
  
  End With
  
  End Sub
  </code></pre>
  
  <p>I was wondering if there are a shorter way of writing this?  Thanks.</p>
  
  <p>EDIT:  It seems this code doesn't work. Is it because I can't use Copy method between two different workbooks? </p>