VBA to rename files and move them to a different folder

On my computer I have a source folder:
C:\Users\jonat\Documents\Finance

And also a folder for a weekly archiving process.
C:\Users\jonat\Documents\Archive

In the source folder I have my weekly files. I am using 5 for this example, but in reality I have far more.
Taunton - Current Week.xlsx
Newbury - Current Week.xlsx
Exeter - Current Week.xlsx
Plymouth - Current Week.xlsx
Bristol - Current week.xlsx

I am hoping someone can provide some vba code which will:-
Rename all the files in the source folder, replacing Current Week with the Period in cell B1 and the Week in cell B2.
And move the renamed files from the source folder to the archive folder.

So for example.
Before vba is run.
Taunton - Current Week.xlsx starts in source folder.
After vba is run
We have Taunton - P13 W1.xlsx in archive folder.

I change the variables in cell B1 and B2 each week.