macros and non-contiguous copying

[Bradly]

Is there a way to set up a macro to copy data in non-contiguous columns?
Example: The data source has information in columns A, B, C, and D--I only
want to copy columns A, C, and D to my Excel worksheet.

How would I move down to the next row and perform the same actions for this
row of data?

Thanks.

 

[Don Guillett]

Sub copycols()
Range("a1,c1:d1").EntireColumn.Copy
End Sub