Copy columns from sheet 1 to sheet 2 using column heading as criteria using VBA

Hi

I have two sheets in the attached file , the first sheet Dump and the second sheet is Output
Data in the dump sheet is in raw format , only certain columns are needed in the Output sheet from the dump sheet

I have tried writing a code to extract the desired columns from the Dump sheet , to the Output sheet , but the code doesn't seem to work

Can some one modify the code so that it extracts the way I have pasted the solution in Output sheet , also can the output be made dynamic to extract the column based on the column heading ?


Thanks