VBA Copy Columns Based on Header matching

[marcorui]

Hi, please help as I am very new beginner to VBA.

I need to copy and paste some data from Sheet 1 to Sheet 2.

The data are scattered and irregular through out the entire workbook. Now I want to find out how to copy the entire column to the new sheet based on the header.

Please help and thank you in advance!

 

[AlphaFrog]

Sub Copy_Columns()
    Dim vHeader As Variant, rngFound As Range, i As Long
    For Each vHeader In Array("District", "Address", "Contact Person")
        Set rngFound = Sheets(1).Cells.Find(vHeader, , xlValues, xlWhole, 1, 1, 0)
        i = i + 1
        If Not rngFound Is Nothing Then
            Range(rngFound, rngFound.End(xlDown)).Copy Destination:=Sheets(2).Cells(1, i)
        End If
    Next
    Sheets(2).Select
    Columns.AutoFit
End Sub

 

[marcorui]

AlphaFrog, Thank you very much, that works perfectly and it is solved now.