Below is a macro, just copy and paste it into a module in your workbook and go from there.
This macro uses message boxes to help you select the range to copy and paste but it can easily be modified to fit into any macro where you may need it.
Sub PasteLink()
Dim rngToCopy As Range
Dim rngToPaste As Range
'Select your range to copy
Set rngToCopy = Application.InputBox("Select range in Book A", Type:=8)
Windows("Book2").Activate
'Select a single cell you wish to start your paste
Set rngToPaste = Application.InputBox("Select range to Paste in Book B", Type:=8)
rngToCopy.Copy
rngToPaste.Activate
ActiveSheet.Paste Link:=True
End Sub