vaggnersf,

Boa Noite!

Veja se o aqruivo anexo lhe atende.

Wagner Morel.

O arquivo esta fazendo a copia, mais apenas de um único arquivo, os outros não estão sendo copiados.
Estou postando o código com algumas alterações para que possa me ajudar.

Sub ImportarArquivosExcel()
Dim Pasta As String
Dim Arquivo As String
Dim ANome As String

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

'Atribui a pasta onde estão os arquivos
Pasta = "E:Entradas"

'Coloca na variável o nome do primeiro arquivo
Arquivo = Dir(Pasta & "*.xls*")

'Inicia um laço para cópia dos arquivos
ANome = Pasta & Arquivo

Do
'Abre o arquivo
Workbooks.Open ANome

'Copia o intervalo usado da planilha de origem e cola
'na primeira linha vazia da planilha de destino
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Plan1").Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0)

'Fecha o arquivo
ActiveWorkbook.Close

'Coloca na variável o nome do próximo arquivo
Arquivo = Dir
Loop While Arquivo <> ""

Application.CutCopyMode = False
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With

MsgBox "Fim de Execução da Macro"
End Sub

Experimente assim:

Sub ImportarArquivosExcel()
Dim Pasta As String
Dim Arquivo As String
Dim ANome As String

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

'Atribui a pasta onde estão os arquivos
Pasta = "E:Entradas"

'Coloca na variável o nome do primeiro arquivo
Arquivo = Dir(Pasta & "*.xls")

Do While Arquivo <> ""

'Inicia um laço para cópia dos arquivos
ANome = Pasta & Arquivo

'Abre o arquivo
Workbooks.Open ANome

'Copia o intervalo usado da planilha de origem e cola
'na primeira linha vazia da planilha de destino
ActiveSheet.UsedRange.Copy _
ThisWorkbook.Sheets("Plan1").Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0)

'Fecha o arquivo
ActiveWorkbook.Close

'Coloca na variável o nome do próximo arquivo
Arquivo = Dir
Loop

Application.CutCopyMode = False
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With

MsgBox "Fim de Execução da Macro"
End Sub