New sheets names as cell values with equivalent data

Hi Commuity,

I have a file that is received weekly and it is in a horrible format.
I have a macro already set up to amend and re-arrange the data as needed, but I need to amend it further which is beyond my skillset.

I have a 5 row header which needs to be maintained as it is.
Starting in A6 is a list of numbers which signify a type.
I need to break the initial list into a new workbook ideally with a sheet named as for each of the unique numbers in column A.
Then where the numbers are, the whole set of rows, including the original header need to be copied on to the new equivalent sheet.

Then in the header, put the value of the number in to cell B2.

The original sheet should not be amended.

Attached is a mock of the data set I have, and how I ideally would like it.

Hi nankw83,

That's a great script. Works so fast too.
Perfect, Thank you.