Copy Multiple Columns with VBA

[Amruiz4517]

I need to write a macro that will copy columns A, G, H, K, Q, and Y rows 2 through 51 in all columns from an active work sheet.

Subsequently, I will then need another one to paste the values of the columns into cells AA51:AF100.

 

[Fluff]

Hi & welcome to the board
This will copy the relevant ranges from the active to a sheet called Sheet2 (change to suit)

Sub CopyData()
Range("A2:A51,G2:H51,K2:K51,Q2:Q51,Y2:Y51").Copy Sheets("[COLOR=#ff0000]Sheet2[/COLOR]").Range("AA51")
End Sub

This copies everything, but the one below copies values only

Sub CopyValues()
Sheets("Sheet2").Range("AA51:AF100").Value = Range("A2:A51,G2:H51,K2:K51,Q2:Q51,Y2:Y51").Value
End Sub

 

[Norie]

Try this.

Intersect(Range("A:A, G:H, K:K, Q:Q, Y:Y"), Rows(2).Resize(50)).Copy Range("AA51")