Here are some steps to accomplish what you're looking for here ...
Identify spreadsheets
From what I saw in your example, the name varies not only according to the date, but also the time, because in one of the files quoted put '0900' = '9:00 AM' and another with '1000' = '10 : 00 '.
1.1 If you have a pattern that only changes the date, it will be easier, because it would generate in the file 'gestion.xls' a routine to create the name of the files in order to get a specific date, the day or the previous day, if as the case may be.
' Para pegar o arquivo de hoje
="matriz_"&TEXTO(AGORA();"ddmmaaaa")&"1000"
Adapt the above example to search for the desired date at the desired time, and it may be a fixed time.
1.2 If you do not have this filename, you can create a specific folder that will have only the file you want to read and do a routine (function) to read all the files in this folder,
List all files in a folder
This code is quite complete and you can adapt to fetch from a fixed folder and fixed type '.xls' as needed.
Once you know which file has to be referenced, you can fetch the data!
Data search
2.1 The data search can be done directly as shown in your example, if it works as you wish, ok!
2.2 If you want to copy this data, you can have a temporary 'tab' to copy the data, work and write to the desired table. Depending on the complexity of the search, if you have filters to do etc. I use a direct connection via ODBC (Excel Files) to filter using SQL the data I want and the filters required. In some projects I have done I used this function below that can be adapted according to your demand:
Sub SQLPesq(ByRef WHAREHOUSE As String, ByRef PATHFILE As String, ByRef PATH As String)
' Macro para pesquisar no arquivo selecionado, dados do armazém selecionado
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & PATHFILE & ";DefaultDir" _
), Array( _
"=" & PATH & ";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range(WHAREHOUSE)).QueryTable
.CommandText = Array( _
"SELECT 'RESUMO$'.Clientes, 'RESUMO$'.'Descrição do Armazém', 'RESUMO$'.IE, 'RESUMO$'.'Tipo de Grão', 'RESUMO$'.'Total Geral'" & Chr(13) & "" & Chr(10) & _
"FROM 'RESUMO$' 'RESUMO$'" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "tbl" & WHAREHOUSE
.Refresh BackgroundQuery:=False
End With
End Sub
After this search would have how to work the data, manipulate, format and write this information in the table, but I think it would fall outside the scope of what asked.
I hope I have helped!