Caso concreto con funciones y/o macros en Excel

[mrocf]

¡ Qué problema !!!
Tu frase: "- ... El código que había probado hasta ahora es el siguiente... " me dio la impresión que contabas con un conocimiento básico del tema VBA.

De modo que -y como es habitual en este Foro- intenté darte un par de herramientas y conocimientos adicionales a fin que completaras tu proyecto.

Sin embargo, a la luz de tus nuevas consultas:

• "- ... 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)..."

das a entender -claramente- que aún no cuentas con esos conocimientos básicos.

La mejor sugerencia que te puedo dar -en este punto- es que antes de ponerte a correr: aprendas a caminar. Es decir:
a) Activa tu grabadora de macros y realiza algunas cosas sencillas (como copiar, pegar y seleccionar celdas) y estudia el código así generado.

b) A medida que vaya siendo "amigable" para tí el lenguaje de las macros y la ayuda del propio VBA, intenta avanzar sobre los códigos que te he dejado.

c) Y accede nuevamente a los Foros de consulta para ser orientado en cuestiones conceptuales importantes... y no básicas.

Saludos.