Macro copies and pastes to word, need to modify to copy and paste additional cell values

I have the following macro which will copy and paste some info from an excel workbook into a word document at the end of the document. I also insert the following text, "E1RM-" "Total Volume-" and "Average Intensity-" at the end.
After the "E1RM-" I need to paste in the value found in cell R1.
After the "Total Volume-" I need to paste in the value found in cell R2.
After the "Average Intensity-" I need to paste in the value found in cell R6.
So after the macro is run the word document looks like this,
E1RM-6
Total Volume-7
Average Intensity-8%

The actual values used in the example are for demonstration purposes only.
The cell references come from the same sheet as the cell range comes from earlier in the macro, the Calculator sheet.
I was working off of a youtube video which used the find function to decide where to place a value, however that wouldn't work in this situation because the word document would have the inserted text in it numerous times.
How do I modify the macro so that it functions as described?

Please Login or Register  to view this content.

I modified the code as follows and the problem is that when the cell values are inserted into word they are inserted as an excel cell, surrounded by the dotted blue line. I need them to appear as if they were typed into word normally.

Please Login or Register  to view this content.

I figured it out, for reference I will leave the code here.

Please Login or Register  to view this content.