Ayuda con copia de Valor de celda

[aperbo]

Yo quiero hacer con macro lo siguiente, en la hoja 1 en la celda A1 =Hoja2!B1
Cuando modifique el valor de la celda B1 de la hoja se actualice la celda A1.
Hasta ahora solo se como copiar el valor, pero no se actualiza cuando cambia de valor.

Agradezco ayuda y colaboración

 

[aperbo]

perdón se me olvido lo que tengo hasta ahora.

Selection.Copy
Sheets("Hoja1").Select
countult = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

 

[AngelJ]

Perdón, no sé si lo entendí completamente. Pero si solamente quiere ejecutar el macro que ya ha hecho cuando actualiza la celda B1, pruebe este código. Se tiene que poner en la hoja, no en un "module".

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
        'este código solo ejecutara cuando ha cambiado la celda B1
       
    End If
End Sub

Y perdón por mi español.