Rearrange columns in new excel sheet in desired sequence

Hi Friends

Everyday I receive multiple excel files which are not in desired sequence columns, every time I have to create a new excel sheet and had to copy/paste the columns in new sheet in desired sequence. Can you suggest me of macro which will get it done automatically.

I received data from different files and dont how in that situation how to record a macro which will solve this issue.

I feel this will not work. Kindly look at my attachment, the files I received have data in columns which are not in arranged way. I want that data to be coped in desired columns are presented, and recording macro is not solving the issue.

Kindly have a look at my attachment.

If you don't "feel" like doing something yourself, you can always pay someone to do the work for you.
Just click on "Commercial Services" at the top.

Opps...my words are miss interpreted. I did that but when I am running the macro its not generating the result. This is what I wanted to say. I Didnt intended to put across my statement in wrong way.

Well that is manual work which I do on all the 200 files I received everyday. I was trying to see if this manual work can be automated. I receive files where some files have 10 columns from which I just need to pull 6columns, some will have 8columns again from which I just need to pull 6columns.

I have to pull those 6columns from each file and I was keen to have a automated way for this manual task.

Experts Kindly look into the issue

Basically, I have several sheets in my workbook where only the second and third worksheets are being used. I want to copy columns from the second sheet to the third sheet only if the column headings match. For example, the code will check the first row of sheet2 to check if it matches any of strings in an array and if it matches, it will copy the entire column to the third sheet under the same heading.

Or in Simple words - Copying from sheet to sheet if column headings match

Need some help on this code...Currently this code Copy data from one sheet to another by matching column header but it is doing only one header(first name), I need to get it done for other 2headers also(last name,country name)...kindly help to modify the code to embed this requirement in the code


Option Explicit
Sub Test()
Dim ched, phed, lr As Long
Sheets("Sheet1").Select
ched = Application.WorksheetFunction.Match("First Name", Sheets("Sheet1").RANGE("1:1"), False)
phed = Application.WorksheetFunction.Match("First Name", Sheets("Sheet2").RANGE("1:1"), False)

lr = Sheets("Sheet1").Cells(Rows.Count, ched).End(xlUp).Row

RANGE(Cells(2, ched), Cells(lr, ched)).Copy Sheets("Sheet2").Cells(2, phed)
Sheets("Sheet2").Select

RANGE(Cells(2, phed), Cells(Rows.Count, phed).End(xlUp)).NumberFormat = "DD/MM/YY"

End Sub

Glad to hear it worked for you.
Good luck