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

HI..

Here's another one...

Not sure about speed.. it's 'my' Friday night here (and 2.56 am to boot).. had enough Rum to join the league of Pirates i reckon.. ahoy me matees.. in any case..

Try this:

Private Sub CommandButton1_Click()
    Dim x
    With [A1].CurrentRegion
        x = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count + 1).Value
        Sheets("Sheet1").Cells(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

The .Columns.Count+1 and then the '37' in the array is so i can reference a blank column 'outside' the real CurrentRegion.. hence allowing for the blank column in the output.

Note: Check out snb's site for more good stuff..