Copy & Insert Entire Column from one sheet to another based on column header name

[radeon187]

Hi everyone!

I'm looking for a simple VBA script that would copy entire columns based on the column header name in "Sheet 1" then insert the copied columns to the right of column header "ColumnHeaderName" in "Sheet 2". Ideally I would like to use some sort of array to define multiple column headers to copy within "Sheet 1".

Thanks in advance for any insight!

 

[JLGWhiz]

Maybe this

Sub t()
Dim ary As Variant, i As Long, fn As Range
With Sheets(1)
    ary = Application.Transpose(.Range("A1:C1").Value)
    For i = LBound(ary) To UBound(ary)
        Set fn = Sheets(2).Rows(1).Find(ary(i, 1), , xlValues)
            If Not fn Is Nothing Then
                .Columns(i).Copy
                fn.Offset(, 1).EntireColumn.Insert
            End If
    Next
End With
End Sub