¿Cómo hago aparecer la fecha y la hora actual en celdas separadas cada vez que escriba un dato?

Necesitas utilizar el evento Worksheet_Change de la hoja en la que quieras que funcione. En el ejemplo que te mando más abajo estamos controlando los cambios producidos en la celda A1. Si anotamos algo en esa celda, escribirá la fecha en la celda A2 y la hoja en la celda A3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Offset(1, 0).Value = Date
Target.Offset(2, 0).Value = Time
End If
End Sub

recuerda finalizar

Hola. Esta vez no he podido hacer funcionar esta solución.

Lo copié como macro.

Hasta luego.

No se copia como una macro normal... se debe copiar dentro del objeto hoja que estamos tratando, ya que es un evento