Ejercicio 7: Copiar datos de una hoja a otra

Ejercicio 7: Copiar datos de una hoja a otra

Crea una macro que copie un rango de celdas desde la hoja activa a otra hoja llamada "Resumen".

1. Iniciar macro
2. Definir rango a copiar en hoja activa
3. Activar hoja "Resumen"
4. Pegar los datos en la hoja "Resumen"
5. Terminar macro

Sub CopiarDatos()
  Dim rng As Range
  Set rng = ActiveSheet.Range("A1:D10") ' Cambiar rango según necesidad
  Sheets("Resumen").Activate
  Range("A1").Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
End Sub