Disculpa pero estuve inactivo unos días,
Te adjunto una muestra de código que he usado para hacer lo que necesitas, lo cierto es que no soy nada hábil con las macros pero míratelo haber si te vale.
Te he enviado el ejemplo a tú correo, hay un pequeño detalle que no consigo solucionar y es que funcione en el primer dato que introduces, al segundo dato ya funciona, posiblemente alguien pueda corregir ese error.
Saludos
Private Sub worksheet_calculate()
Application.ScreenUpdating = False
Static semana1, semana2, semana3, semana4, semana5, semana6, semana7, semana8
If Range("b8").Value <> semana1 Then
semana1 = Range("b8")
Range("b8").Copy
Range("e8").PasteSpecial Paste:=xlPasteValues
Worksheets("hoja2").Range("d7").PasteSpecial Paste:=xlPasteValues
End If
If Range("b17").Value <> semana2 Then
semana2 = Range("b17")
Range("b17").Copy
Range("e8").PasteSpecial Paste:=xlPasteValues
Worksheets("hoja2").Range("d7").PasteSpecial Paste:=xlPasteValues
End If
Application.CutCopyMode = False
End Sub