Copy columns from sheet 1 to sheet 2 using column heading as criteria using VBA

I see the really good guys have arrived
apo, I made a tiny change to your code. I also timed it, something like 10^-8 seconds, fast enough he he...

Option Explicit
Sub Click()
    Dim x
    With [A1].CurrentRegion
        x = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count + 1).Value
        Sheets("Sheet1").Cells(2, 1).Resize(UBound(x), 12) = Application.Index(x, Evaluate("row(1:" & UBound(x) + 1 & ")"), Array(1, 6, 4, 13, 35, 36, 37, 19, 28, 15, 2, 3))
    End With
End Sub

Good looking piece of code there Marc L, very compact. However it takes about 0.6 seconds on my pc, about ten times slower than my code. Also I think you missed the empty column.