автоматизировать копирование

[scals]

есть файлы который приходят по почте из которых копируются определенные ячейки в результирующий файл "реестр и оплата".
можно ли автоматизировать этот процесс?
Заранее спасибо

[Hugo121]

По одному файлу будете импортировать или сразу всю папку?

[Hugo121]

Пока думаете - вот код на мультиобработку (выбираем произвольные файлы), там вместо строки
ActiveWorkbook.Sheets(3).[A4:G4].Copy blank_cell
надо вставить процедуру копирования данных:

Sub CopyfromWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False

Set xls = ThisWorkbook
Set xlsa = xls.Sheets(1)

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set blank_cell = xlsa.Cells(xlsa.[a1].SpecialCells(xlCellTypeLastCell).Row + 1, 1)

Workbooks.Open Filename:=FilesToOpen(x)
ActiveWorkbook.Sheets(3).[A4:G4].Copy blank_cell
ActiveWorkbook.Close SaveChanges:=False
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

[scals]

нужно добавлять по 1 файлу каждый день

[scals]

забыл сказать в исходных файлах защищенные ячейки и перепробованные мной макросы откзываются копировать данные