te estas moviendo entre hojas, eso es para un modulo,
tu pegas los valores así
Código:
Range("E3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recupera datos").Select
Range("D3").Select
ActiveSheet.Paste
debería ser así para mantenerse en la misma hoja del código
Código:
Sheets("Recupera datos").Range("D3") = Range("E3")
saludos