Pegar columnas de 2 hojas(excel) de un libro(guardado) a hojas del libro activo

Hola, muy buenos días:

Pues bien, les platico mi problemilla: tengo una macro que copia una columna de dos hojas, que están un un archivo, y pega estas columnas al libro activo, en hojas específicas, hasta aquí todo perfecto, el problema viene cuando siempre tengo que meterme al código de la macro para especificar el nombre del libro activo (al que pegará las filas) y me gustaría que me ayudaran para que lo hiciera en automático, es decir que pegue en automático al libro abierto sin tener que especificar el nombre, agradezco desde ya cualquier ayuda o consejo!

Anexo la macro:

Sub copiateams()
Workbooks.Open Filename:="C:\Users\HLuna\Desktop\Datos Teams.xlsx"
Sheets("Management Team").Select
Range("A1:A25").Select
Selection.Copy

'Este renglón es el que siempre debo modificar :(
Windows("Checadas 16-28 Feb 2014").Activate
'Windows(wkb).Activate
Sheets("Sheet1").Select
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Windows("Management Team.xlsx").Activate
'ActiveWindow.Close
Workbooks.Open Filename:="C:\Users\<span style="white-space: nowrap;">HLuna</span>Desktop\Datos Teams.xlsx"
Sheets("Executive Team").Select
Range("A1:A10").Select
Selection.Copy

'Este renglón es el que siempre debo modificar :(
Windows("Checadas 16-28 Feb 2014").Activate
Sheets("Sheet2").Select
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Windows("Executive Team.xlsx").Activate
'ActiveWindow.Close
End Sub

Añade tu respuesta

Haz clic para o