Copiar datos de excel a excel

[David]

Esta línea no tiene sentido:

Código vb:

oXLApp.ActiveWorkbook.ActiveSheet = oXLApp.ActiveWorkbook.ActiveSheet.Name
 

Al momento de copiar puedes especificar directamente el nombre de la hoja:

Código vb:

oXLApp.Sheets("Hoja1").Columns("A:C").Copy
 

El bucle for también sobra. Esto también sobra, ya que en la línea anterior ya estás pegando los datos:

Código vb:

oXLApp.Cells().Select ' selecciona
oXLApp.ActiveSheet.Paste ' pega los datos