Ejercicio 10: Macro para copiar datos de una hoja a otra

Ejercicio 10: Macro para copiar datos de una hoja a otra

Escribe una macro que copie el rango A1:C10 de la hoja "Datos" y lo pegue en la hoja "Resumen" comenzando desde la celda A1.

1. Iniciar macro
2. Seleccionar hoja "Datos"
3. Copiar rango A1:C10
4. Seleccionar hoja "Resumen"
5. Pegar en celda A1
6. Terminar macro

Sub CopiarDatos()
  ' Seleccionar hoja "Datos" y copiar rango
  Sheets("Datos").Range("A1:C10").Copy

  ' Seleccionar hoja "Resumen" y pegar en A1
  Sheets("Resumen").Range("A1").PasteSpecial Paste:=xlPasteAll

  ' Opcional: limpiar portapapeles
  Application.CutCopyMode = False
End Sub