Range of several idividual columns

I have this following code that is causing problems:

Dim intResults As Integer
 Dim sPath As String
 sPath = Environ("USERPROFILE") & "\Documents\" & "\PublisherList\"
Sheet1.Range("A1", "D1", "F1", "J1").ExportAsFixedFormat xlTypePDF, sPath & _
  InputBox("Please provide a name for the PDF file.") & ".PDF"
Sheet1.PrintPreview

I wish the range to include just certain columns.
unfortunatilgy the range selections are not working.

need help