Finger too fast.Try this idea

Sub copycols()
Range("h1,t1,ak1").EntireColumn.Copy cells(2,1)
Range("g1,aj1").EntireColumn.Copy cells(2,4)
'etc
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Gemz" wrote in message
...
Hi,

I have the following sample code which keeps creating an error, please can
you tell me whats wrong? the columns to copy need to be in that order.

With oldbk.Sheets(2)

.Columns("H:H,T:T,AK:AK,G:G,AJ:AJ,D:D,AM:AM,AP:AP, AS:AS,AU:AU,AQ:AQ").Copy
Destination:= _
NewbkS2.Range("A1")
End With

thanks.