En la hoja "copia", en la celda B1 puedes poner la fórmula:
=datos! B1
Y copiar hasta la D1 y hacia abajo.
La otra opción es con macro. Pon el siguiente código en los eventos de la hoja "datos":
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range
'
Set rng = Intersect(Target, Range("B:D"))
If Not rng Is Nothing Then
For Each c In rng
Application.EnableEvents = False
Sheets("copia").Range(c.Address).Value = c.Value
Application.EnableEvents = True
Next
End If
End Sub
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro