別シートのセルの値をリンク貼り付けするには、参照先のシート名と、
Addressプロパティなどを利用して行番号と列番号を取得し、それらを
組み合わせて参照先のアドレスを表す文字列をセルに入力します。

　サンプルマクロでは、シート「Sheet1」の選択された範囲のセルの値を、
シート「Sheet2」の特定のセルにリンク貼り付けしています。

　シート「Sheet1」のA列の1〜10行に値を入力して、サンプルマクロを
実行してください。

Sub Sample()

    Dim my_cell
    Dim i

    Worksheets("Sheet1").Activate
    Range("A1:A10").Select
    
    i = 1
    
    For Each my_cell In Selection
        Worksheets("Sheet2").Cells(i, 1).Value = "=Sheet1!" & my_cell.Address
        i = i + 1
    Next my_cell

End Sub