Hi,
Try the following. I don't know where you want to copy to, so this just leaves the "marching ants" around the column that has been copied.
-------------
Sub test()
Dim x As Integer
With ActiveSheet
.UsedRange
For x = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
If Left(Cells(1, x), 2) = "36" Then Columns(x).Copy
Next x
End With
End Sub
------------------
Bye,
Jay