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

With a trick, Excel basics are fast enough !

PHP Code: 

Sub Demo()
    With Sheet1.Cells(1).CurrentRegion.Rows
        With .Item("2:" & .Count)
            Application.ScreenUpdating = False
            .Cells(5).Copy Sheet2.[G2]
            .AdvancedFilter xlFilterCopy, , Sheet2.[A2:L2]
        End With
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !