Sub gatheringData()
Dim strTitle As String
Dim IngCounter As Long
Dim MyfileName As Variant
Dim IngLastRow As Long
Dim wbCentralWorkbook As Workbook
Dim wbDataWorkbook As Workbook

strTitle = "Выбор файлов с данными для сбора"
MyfileName = Application.GetOpenMyfileName(FileFilter:="All files (*.*), *.*", MultiSelect:=True, Title:="Files to Merge")

Set wbCentralWorkbook = ThisWorkbook
If IsArray(MyfileName) = True Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For IngCounter = LBound(MyfileName) To UBound(MyfileName)

Set wbDataWorkbook = Workbooks.Open(fileName:=MyfileName(IngCounter), corruptload:=2)

IngLastRow = wbDataWorkbook.Worksheets("Лист1").Range("A" & wbDataWorkbook.Worksheets("Лист1").Rows.Count).End(xlUp).Row
wbDataWorkbook.Worksheets("Лист1").Range("A2:F" & IngLastRow).Copy

IngLastRow = wbCentralWorkbook.Worksheets("СВОД").Range("B" & wbCentralWorkbook.Worksheets("СВОД").Rows.Count).End(xlUp).Row
wbCentralWorkbook.Worksheets("СВОД").Range("B" & IngLastRow + 1).PasteSpecial (xlPasteAll)

wbDataWorkbook.Close (True)
Next IngCounter
MsgBox "Готово!"

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Else:
MsgBox "Файлы не выбраны!"
End If
End Sub