vba code to merge headers from 2 sheets at their specific columns position 3rd sheet

I have a workbook with several sheets , my focus is only for two sheets tabs Invoice and Header Format

vba to add a new sheet tab named consolidation data , copy specific headers and data to the required format in consolidation data sheet tab


Invoice tabs has data in each column headers but it may sometimes that certain columns are blank in non contigious headers ,

The header format sheet tab has only headers at row 1 with no data in the columns (always).

Vba code to add new sheet named consolidation data tab. copy the headers in red from Invoice tab with data to last data row .

then copy from header sheet tab the specific blue tab headers to consolidation (note there is no data in format header tab) in red tab

The green tab sheet are for explanation purposes

Data in invoice tab can reach the 10000 rows

Thanks for any assistance