Modulable copy macro for column continious and non continious

[RAM72]

Hi

I constanly copy data column from one sheet to another.



So am looking a macro that can copy continious and non continious columns up to last data which is modulable so that I can change the required columns

e.g

Suppose I want to copy column A, C,D , G,L, M,Z,AA,AB CC, DD from sheet 1 to sheet 2 up to last data in column

Can any one help

Thanks

 

[Luke M]

Does this help give you some idea? I wasn't exactly sure on the copy if you wanted to append it, or always paste into same spot.

Sub Example()
Dim myRange As Range
Dim rngToCopy As Range

'Which columns do you want?
Set myRange = Range("A:A, C:D , G:G,L:M,Z:AB, CC:CC, DD:DD")

'Grab only to last row
Set rngToCopy = Intersect(myRange, ActiveSheet.UsedRange)

'Copy it
rngToCopy.Copy Destination:=Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
End Sub

 

[RAM72]

thank you

Working as requested