Select and Copy multiple non-adjacent columns

[kevinh2320]

I need help with how to select and copy all rows in non-adjacent columns. Here's the code I have so far. This works great since the columns are adjacent but I would like to include other columns are not. For example I'd like to include columns D, H, N, O & AB.

Sub moveRecordsToRevenueTracking()

'Select and copy columns A and B
Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Copy

End Sub

Any help would be greatly appreciated.