Bom dia!

Jnexcel,

Utilizei este codigo na planilha aqui no meu trabalho e funciona perfeitamente.

Sub importar()
 
'Fonte:https://www.rondebruin.nl/win/section3.htm
    Dim SourceRange As Range
    Dim DestRange As Range
    Dim DestWB As Workbook
    Dim DestSh As Worksheet
    Dim Lr As Long
        
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    'Altere o nome do arquivo (2 *) e o nome do caminho / arquivo para o seu arquivo
    If bIsBookOpen_RB("nome do caminho") Then
        Set DestWB = Workbooks("nome do caminho")
    Else                           ' Aqui o caminho deve ser igual ao camilho onde esta sua planilha de importação.
        Set DestWB = Workbooks.Open("C:Users.....")
    End If
    'se deseja copiar mais de 400 linhas altere o campo range (A2:BV400)
    Set SourceRange = ThisWorkbook.Sheets("File List").Range("A2:BV400")
    ' aqui e o nome da planilha onde os arquivos serão importados
    Set DestSh = DestWB.Worksheets("File List")

    Lr = LastRow(DestSh)
    Set DestRange = DestSh.Range("A" & Lr + 1)
    'Fazemos DestRange o mesmo tamanho do SourceRange e usamos o Valor
    'propriedade para dar DestRange os mesmos valores
    With SourceRange
        Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
    End With
    DestRange.Value = SourceRange.Value

    DestWB.Close savechanges:=True

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub
  Function LastRow(sh As Worksheet)
    On Error Resume Next
    LastRow = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            LookAt:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function

Function LastCol(sh As Worksheet)
    On Error Resume Next
    LastCol = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            LookAt:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Column
    On Error GoTo 0
End Function

Function bIsBookOpen_RB(ByRef szBookName As String) As Boolean
' Rob Bovey
    On Error Resume Next
    bIsBookOpen_RB = Not (Application.Workbooks(szBookName) Is Nothing)
End Function

não consegui

por favor, você poderia me ajudar?

muito obrigado.

Boa noite, Jnexcel

Segue um exemplo do meu trabalho.

avgsantos

Quando se referir ao arquivo, diga "pasta de trabalho".

Bom dia!

Muito obrigado a todos pela atenção e colaboração nessa dúvida.

avgsantos, código.

MAGNÍFICO

Muito obrigado!