Extraer datos de una hoja a otra pero vinculados.

Hola a todos, mi consulta es la siguiente.

Tengo un libro y transfiero datos de la tabla_1 a la tabla_2dentro del mismo libro, tengo dos macros para poder hacerlo, las pego masabajo, pero claro, cuando se transfieren los datos se transfiere su valor absoluto, perocundo modifico el valor en la tabla:1 lógicamente no se modifica en la tabla_2,o sea, que quiero transferir los datos pero vinculados, a modo de Id en unabase de datos, lo he intentado pasando el número de la fila y luegoel resto del código del vinculo ponerlo en la hoja_2 y utilizando posteriormenteconcatenar, pero no funciona, hay forma de hacerlo?

( aqui paso la celda A1 de la Hoja_1 )

SubINGRESAR_PPKK_2()

r =[IE22].Value

Sheets(r).Select

ul =Range("C1000").End(xlUp).Row + 1

Cells(ul,3) = Hoja_1.Range("A1")

End Sub


( aqui tambien pero verificando antes si ya existe )

Sub PPKK()

    Dim resp As Variant

    uf =Sheets("PPKK").Range("C" &Cells.Rows.Count).End(xlUp).Row + 1

    On Error Resume Next

    FIL =Application.WorksheetFunction.Match(Range("HZ3"),Sheets("PPKK").Columns("C:C"), 0)

    If FIL = "" Then

       Sheets("PPKK").Range("C" & uf) =Range("A1")

    Else

        resp =MsgBox("YA SE ENCUENTRA INSERTADA", vbYesNo, "Atencion!")

        If resp = vbYes Then

       Sheets("PPKK").Range("C" & FIL) =Range("A1")

        Else

        Exit Sub

        End If

    End If

End Sub[/CODE]

[font=Times New Roman][size=3][color=#000000]

Para finalizar, saludos a todos y gracias.[/color][/size][/font]