Transfer data based on values in range to related sheets

Hello everybody
I have Data sheet in which I need to loop through the range G6:G18 and if the value equals to sheet name so the related data of that row to be copied to that sheet ..
As for the header to be copied only if the cell value within the range G6:G18 equals to the sheet name

I need to keep formatting in the results. I mean the results would be formatted as the main table in Data sheet if possible

Hope it is clear