title: Copy-Paste Multiple columns in VBA
body: <p>I am trying to copy selected columns from a sheet of one workbook to a sheet of another workbook. There are 10 columns but I need to copy just 4 and paste them in t another. Here's the code</p>
  
  <pre><code>Sub CopyCoverage()
  
  Dim x As Workbook
  Dim y As Workbook
  Dim rng As Range
  Dim LastRow As Long
  Dim NextRow As Long
  
  Set x = Workbooks.Open("C:\testing\abc.xlsm")
  Set y = ThisWorkbook
  
  x.Worksheets("Sheet1").Activate  // Here I need to select just 4 columns but it selects everything
  Range("A65536").Select
  ActiveCell.End(xlUp).Select
  LastRow = ActiveCell.Row
  
  Range("A2:A" &amp; LastRow).Copy y.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 0)
  Range("B2:B" &amp; LastRow).Copy y.Worksheets("Sheet1").Range("e65536").End(xlUp).Offset(1, 0)
  Range("H1:H" &amp; LastRow).Copy y.Worksheets("Sheet1").Range("g65536").End(xlUp).Offset(1, 0)
  Range("I1:I" &amp; LastRow).Copy y.Worksheets("Sheet1").Range("i65536").End(xlUp).Offset(1, 0)
  Application.CutCopyMode = False
  
  End Sub
  </code></pre>
  
  <p>How can i write this in a general syntax? Thanks.</p>