MACRO Extraer datos de una Tabla de excel a otro Libro

[maxigordillo]

Hola que tal, quisiera hacer una consulta, intente desarrollar la siguiente macro pero me surgieron algunas dudas.

La misma consiste en levantar todos los datos de una Tabla de excel, (siempre estará en la misma ruta) y pegarlos en el libro activo, en la celda activa donde ejecuto la macro. Osea esta macro la voy a guardar como complemento y así utilizarla en cualquier excel que abra, por eso necesito que el código me reconozca el excel donde la ejecuto para poder pegar los datos de la tabla y obvio luego me lo cierre sin guardar.

Así es como lo propuse, pero solo anda para un libro llamado "Libro1" y necesito que ande para cualquiera, ademas tampoco me estaba pegando en la celda activa.

Si me pueden dar una mano de como reescribir el código le agradezco.

 

Sub TraerDatosdeLicitaciones()

Application.StatusBar = False

  Workbooks.Open Filename:="\\arregui04\Oficina Tecnica\04 Licitaciones\00 AGREGAR LICITACIÓN.xlsm"
    
    Windows("00 AGREGAR LICITACIÓN.xlsm").Activate

    Range("LICITACIONES[#All]").Select
    Selection.Copy
Application.StatusBar = False
    'Windows("Libro1").Activate
    ActiveWorkbook.Activate
    Rows(ActiveCell.Row).Select
    
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
     Workbooks("00 AGREGAR LICITACIÓN.xlsm").Close False

    
End Sub