Copy cell in current row and paste offset down 1

I have the below macro that when I select a row either by selecting a cell or selecting a row and run the macro, it copys a row from another sheet and pastes below the row I have selected. I am wanting to add to it after the copy that it then copies the cell from the original selected row/column R and pastes it in the new row below it/Column R. I can't work it out. Anyone able to help?

Many thanks Mike

Please Login or Register  to view this content.

Thanks Alansidman.

Sorry I think I didn't explain properly, I'm looking for the activesheet.acitve row R copy and paste. So say

say I select row 18, I want to copy and insert the row from "Base" in the row below 18 (so it's row 19) as it currently is doing. Then copy Row 18 column R and paste it to Row 19 column R. But as the row changes it won't be R18 every time.I have managed to get the copy or R happening but not the offset and paste. I have:

Please Login or Register  to view this content.

Originally Posted by alansidman

Please Login or Register  to view this content.

Try the above