To copy cell names along with their values in other sheet

Here's an attached sample file which will clearly indicate what I require.
I just found out that same name cannot represent two cells in a workbook.
Sheet1 contains the format which is copied to sheet2 in the way as shown.
Now Sheet1 has names defined for various cells like Potato for cell containing Potato and so on.
You will find that sheet2 has name Title_potato name for cell contaning potato.
This Title_potato and other names in sheet2 I want to generate with a vba code when contents are copied from sheet1 from sheet2.
I hope now it is clear.
any help will be greatly appreciated.