Caso concreto con funciones y/o macros en Excel

[ThomasBlake]

Pues no me funciona...

He puesto el código este:

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

Supongo que eso es el código completo que ha de aparecer no?
Por tanto habría que borrar esto:

Sub Macro3()
'
' Macro3 Macro
' Macro grabada el 01/08/2008 por Comp
'
' Acceso directo: CTRL+w
'

Pero entonces empieza con "Private Sub..."? No empieza con el nombre de la macro?

Esta parte para qué sirve?: Application.EnableEvents = False

Y en esta parte: .Copy Sheets("Hoja1").[H65536].End(xlUp).Offset(1, 0)

Hoja 1 es la hoja de origen, no? Y la destino? Es H65536? Y el Offset es para correr una fila hacia abajo? Con eso ya me ordenará todo en la 2a hoja?


Gracias por vuestro tiempo