Copy Data to Sheets (Sheet name based on value from Cell)

Hi all,
I have a macro which is working okay but I would like to make a minor change.
The macro is copying a range from a different excel sheet and it pastes the values on a sheet called "2017"
Here is the code:

Please Login or Register  to view this content.

What I was hoping to do is that instead of pasting the value to Sheet "2017", I'd like the macro to paste it in a sheet based on a particular Cell value.
For example:

On another sheet named "Process" at Cell A1 my value is 2018.
I would like the macro to paste the data to a sheet called 2018.

I hope you could take a quick look and appreciate any help. Thank you.