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

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

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

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

Set wbDataWorkbook = Workbooks.Open(fileName(IngCounter))

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.ScreenUpdating = True
Else:
MsgBox "Файлы не выбраны!"
End If
End Sub