title: How to copy two non adjacent columns in range
body: <p>I need to copy just columns D &amp; H and paste to a table. 
  This is what i have so far.
  I have tried a few different modifications searching this site with no luck.
  Thanks</p>
  
  <pre><code>Sub Zulily_DS()
  On Error Resume Next
  
  Dim lastrowB As Long
  Dim lastrowB1 As Long
  Dim myLastCell As Range
  
  Application.ScreenUpdating = True
  
  lastrowB = Sheets("Source").Cells(Rows.Count, "B").End(xlUp).Row + 1
  lastrowB1 = Sheets("Source").Cells(Rows.Count, "B").End(xlUp).Row
  
  Sheets("Source").Select
  With Sheets("Zulily_DS")
  
  If Sheets("Source").Range("C2").Value = vbNullString Then
      .Range("D2:H2", .Range("D" &amp; Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy _
                                                                              Sheets("Source").Cells(lastrowB1, 2)
  
  ElseIf Sheets("Source").Range("C2").Value &gt; "0" Then
      .Range("D2:H2", .Range("D" &amp; Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy _
                                                                              Sheets("Source").Cells(lastrowB, 2)
  End If
  End With
  
  Application.ScreenUpdating = False
  End Sub
  </code></pre>