Copying columns from Sheet1 to Sheet2 based on column names

[AVAYA123456]

Hi Everyone,

I have a requirement to copy data from Sheet A to Sheet B. But the constraint is as below.

1. Sheet A has more columns than Sheet B. I have to copy only few columns to Sheet B from sheet A.
2. There is a mapping in another control sheet available to what cols from Sheet A should go to Sheet B.

Example:
Sheet A has columns - "First Name", "Last Name", "Address", "City", "State", "ZIP", "Emp ID", "DOJ"
Sheet B has columns - "Employee ID", "Last Name", "First Name", "Date of Joining"

Mapping provided:

Sheet A --> Sheet B
________________________
"Emp ID" --> "Employee ID"
"Last Name" --> "Last Name"
"First Name" --> "First Name"
"DOJ" --> "Date of Joining"

so based on column names provided, I have to move only specific columns from Sheet A to B. Can you please help me on this. Thanks.

 

[My Aswer Is This]

Try this:

Sub Copy_Columns()
Application.ScreenUpdating = False
Sheets("A").Columns(1).Copy Destination:=Sheets("B").Columns(3)
Sheets("A").Columns(2).Copy Destination:=Sheets("B").Columns(2)
Sheets("A").Columns(7).Copy Destination:=Sheets("B").Columns(1)
Sheets("A").Columns(8).Copy Destination:=Sheets("B").Columns(4)
Application.ScreenUpdating = False
End Sub