Macro to sort Columns in correct oder

[Howardc1001]

I have data that I import and need the columns copied/sorted in a specific order

The column headers will always start from Row5 and the data will be below this

I have show in row 4 what sequence the headers must be in

It would be appreciated if someone can provide me with code to ensure the columns are in the correct sequence

[Marc L]

In the destination sheet allocate the headers with the correct order but with the same exact spelling than your import sheet
so no typo is allowed then just use an easy beginner level advanced filter to copy the data from the import sheet to the destination sheet,
needing only a single codeline ! …

[Howardc1001]

Thanks for your input. I have tried to set up advanced filtering but cannot get it to extract the columns in the correct order per the criteria on sheet2

Once I have got it manually correct, then I will write a macro

Please check & advise

[MarvinP]

Hi Howardc,

A little known feature of Advanced Filter is that you can rearrange the order of the columns or limit the columns if you select a "Copy To:" range that already has those column heads in it. See the attached where the sample data is on the left and I filled in the Copy To range using the column heads only in Row 5, but in different order. Then do the Advanced filter using the range that is the columns you want to see and in which order. This could be the answer to easily rearranging your columns. Hope this helps.
Macro to Sort columns in Correct Order Using Adv Filter.xlsm

[Marc L]

Howard,

using an advanced filter is at kid level as it must work without any headers error so I wanna see your try …

If operating manually the well known tip is to start from the destination sheet (so must be the active sheet).

[Howardc1001]

Hi Marvin

Thanks for the explanation.

I did the following steps using advanced filter without using the criteria section

1) I selected range A5:U6 (list range)
2) I then selected copy to and selected AB5:UV5

When click ok I get an error message

I am obviously missing something

Please explain step by step what I need to do

Many Thanks

Howard

[MarvinP]

Hey Howard,

I think Mark got the answer for your error before you asked. You need to start the Advanced Filter dialog on the sheet where the Criteria is located. If you told us the error message we could have been more sure that was the problem. Read a list of possible problems at:
https://answers.microsoft.com/en-us/...2-c8c86600a9e2

[Howardc1001]

Hi Marvin & Mark

Many thanks for all your valuable input.

My apologies. One of the headers in the copy to section was incorrect resulting in the error. I have used advanced filtering fairly often and have never encountered a problem as it is simple to use

I have never used the copy to without criteria