Tomar un mismo rango de diferentes libros para pegarlos en una tabla

Estoy tratando de realizar una macro dónde el archivo principal llame a diferentes libros y copie un rango en específico en las filas hacia abajo.

El nombre de los libros está en las filas para que los datos sean correctos pero no paso de que la macro quiera cerrar el libro principal, les dejo lo que tengo en Visual Basic

Sub Coberturas_Comonuevos()
'
' Coberturas_Comonuevos Macro
'
'
    While ActiveCell.Value <> "47"
    Application.ScreenUpdating = False
    Sheets("2020").Select
     Dim Archivo As String
    Archivo = "C:\Users\Leonardo Martinez\Documents\" & Range("V3") & ".xlsx"
    Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Archivo) Then
     Workbooks.Open Archivo
    Else
    MsgBox "no encontrado. Asegurese de que el archivo COMPRA.XLSX está en la carpeta: c:\---"
End If
    Range("D7:D17").Select
    Selection.Copy
    Windows("Base.xlsx").Activate
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    ActiveWindow.Close
    Range("V2").Select
    ActiveCell.FormulaR1C1 = Range("V2") + 1
    Range("D4").Select
    Application.ScreenUpdating = True
    Wend
    If ActiveCell = "" Then
    MsgBox ("Gracias por la espera, puedes enviar la información")
    End If
End Sub