Esta acción se puede hacer de manera sencilla utilizando el método FillAcrossSheet del Objeto Workbook.
El Segundo parámetro se utiliza para especificar el tipo de copiado.
xlFillWithContents: Copia únicamente el contenido
xlFillWithFormats: Copia únicamente los Formatos
xlFillWithAll: Copia Ambos.
Carrito:




