Does anybody know any better code than the following to copy certain columns of data from one worksheet to another, without the need to repeat the code for every column seperately?
Sub copyColumns()
Worksheets("Sheet1").Activate
Range("A1", Range("A1").End(xlDown)).Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlValues
Range("C1", Range("C1").End(xlDown)).Copy
Worksheets("Sheet2").Range("B1").PasteSpecial Paste:=xlValues
Range("G1", Range("G1").End(xlDown)).Copy
Worksheets("Sheet2").Range("C1").PasteSpecial Paste:=xlValues
End Sub
Sub copyColumns()
Worksheets("Sheet1").Activate
Range("A1", Range("A1").End(xlDown)).Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlValues
Range("C1", Range("C1").End(xlDown)).Copy
Worksheets("Sheet2").Range("B1").PasteSpecial Paste:=xlValues
Range("G1", Range("G1").End(xlDown)).Copy
Worksheets("Sheet2").Range("C1").PasteSpecial Paste:=xlValues
End Sub