vertical to horizontal consolidate

Hi to all experts,



I have a workbook with multiple sheets with same structure. What i want to do is consolidate only the specific cells with same header using vba(from vertical to horizontal)

Report is between A1:AN96 veritically, i need a1 and then horizotally AL6-AL20-AL24-AL26-................

There ise a sample file of the report. I need to consolidate yellow cells..

Thanks a lot in advance...