how would i incorporate this into my code?

Dim aName As String
aName = Selection.Worksheet.Name
.. . . .
Sheets(aName).Range(address).Copy

On second thought, there is another way. Declare another range
variable. e.g. rngC, and set it equal to the cells you want to copy
from later.
Set rngC = . . . .
.. . . . . . .
rngC.Copy Destination:= . . . .

Hth,
Merjet