Necesito hacer una macro...AYUDA PORFAVOR

[escaed]

Gracias...va perfecto¡¡ lo que había hecho era poner a grabar la MACRO y hacerlo manual, por eso salían tantísimas cosas;ahora trabajo mucho mejor.


Para los siguientes pasos me habían dicho que utilizara ésta fórmula, pero sigue sin funcionarme, a ver si ves algo extraño


Sub copia()
'variables
Dim i As Integer
Dim origen As String
Dim destino As String
'el i emprezara en 1 y aumentara hasta 100
For i = 1 To 100
'Abro el primer archivo la i es el numero que ira aumentando
'archivo1.xls , archivo2.xls etc en la ubicacion C
Workbooks.Open ("C:\Archivo" & i & ".xls")
'Asigno el nombre del libro a una variable
origen = ActiveWorkbook.Name
'Abro el libro destino
Workbooks.Open ("C:\Archivo back.xls")
'Asino el nombre a variable
destino = ActiveWorkbook.Name
'localizo la ultima fila
finalrow = Range("A65536").End(xlUp).Row
'Copio y pego los valores
Workbooks(origen).Range("A2:M2").Copy Destination:=Workbooks(destino).Range("A " & finalrow + 1)
'Cierro y salvo lo necesario
Workbooks(origen).Close False
Workbooks(destino).Close True
Next

End Sub

Gracias