Get Column Header Values Based on Row Has Any Cell Values

Hi,

If row has any cell values, need to get column header values one by one in separate cells by clicking the event or cell change event.

Sheet 1:

Name	Maths	Science	Social
AAA	1		3
BBB		3
CCC

Sheet 2

Name
AAA	Maths	Social
BBB	Science
CCC

Thank you.