Caso concreto con funciones y/o macros en Excel

[mrocf]

Hola! ThomasBlake.
Prueba con lo siguiente y advierte -si las hubiere- las diferencias con tu código.
(Sugerencia: la 1a. instrucción representa una diferencia importantísima... ¿adviertes por qué?)

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$E$12" Then Exit Sub
  If Target.Value = "aplazado" Then Run "Macro3"
With [A12:E12]
  Application.EnableEvents = False
  .Interior.ColorIndex = xlNone
  .Font.ColorIndex = 0
  .Copy Sheets("Hoja1").[H65536].End(xlUp).Offset(1, 0)
  Application.EnableEvents = True
End With
End Sub

Saludos, Cacho.