find intersection and delimit the values

dear, i have command button delimits the value of cells i choose and put the result in sheet "pure" from column "C3:E" ( see attached file ) .
what i need is edit the code to be , example if i select range of cells as "C4:C5" i want to search to the word "Heading5" in row2 and get the intersections between cells i selected and column of "Heading5" "F4:F5" , then delimit them in sheet "pure" in column "C3" and "D3" and "G3" and in column "B3" paste the cells i select it i.e " B , C ".
note : the word "Heading5" not always exist in same column , so i need to search it in all row2 .

see attache file

Best Regards