Copy Active Sheet and Save as specific name on cell value in current folder

I have a workbook in a folder and I wish to copy a range of cells on the active sheet (currently sheet1) and save this as a separate workbook but in the same folder (active folder) as the other and name it as a file based on a value in cell a1 then return to the original workbook
Any help with the VBA code would be greatly appreciated.

Thank but it didn't work
Got runtime error 1004
"the operation requires the merged cells to be identically sized"

Just to try this, I put all the cells to the sae width but still the same message and nothing is merged
I will actually need to do this with some different sized cells and some of them merged

When I debu,g is has stopped on line
ActiveSheet.Range("A1").PasteSpecial xlPasteValues

I'm confused

Thank you so far

This is what I am trying to achieve and example file attached
This is the master file and as an example is stored in a folder C:\Desktop\Weather.
The plan is to input certain data
Date taken Cell D5
Name of who took it in cell H1
This then looks up and populates the current day and the follow six days C9 – I9
The person the inputs the info on C20-I20 and C21-I21
The cells in rows 22 – 22 are from a hidden pick list and are conditionally formatted
Currently the only cells unlocked are the ones requiring inputs. The password is to leave blank

Once this is populated, I will have a few buttons like email, or print which I am ok with doing
I am struggling with the save option and I would like to click save and it will run a macro which will copy the info on the master sheet, save as a new workbook or PDF if easier but in the same active folder C:\Desktop\Weather and call it Weather Week Ahead and the date from cell D5 in the master
Then revert back to the master file, clear out the unlocked cells and save as a blank ready for the next time. Thank you so far

This is what I am trying to achieve and example file attached
This is the master file and as an example is stored in a folder C:\Desktop\Weather.
The plan is to input certain data
Date taken Cell D5
Name of who took it in cell H1
This then looks up and populates the current day and the follow six days C9 – I9
The person the inputs the info on C20-I20 and C21-I21
The cells in rows 22 – 22 are from a hidden pick list and are conditionally formatted
Currently the only cells unlocked are the ones requiring inputs. The password is to leave blank

Once this is populated, I will have a few buttons like email, or print which I am ok with doing
I am struggling with the save option and I would like to click save and it will run a macro which will copy the info on the master sheet, save as a new workbook or PDF if easier but in the same active folder C:\Desktop\Weather and call it Weather Week Ahead and the date from cell D5 in the master
Then revert back to the master file, clear out the unlocked cells and save as a blank ready for the next time.