Sub LoadData()
Dim wbData As Workbook, sPath As String, arr

If MsgBox("Загрузить данные на лист Данные?", vbQuestion + vbYesNo, "Загрузка данных") = vbNo Then Exit Sub

'очищаем данные на листе Данные
With Worksheets("Данные")
Range("B14:H19").Clear

End With

'запрашиваем путь к файлу
sPath = Application.GetOpenFilename("Файлы Excel (*.xls*),*.xls*", 1, "Выберите файл с данными", , False)
If sPath = "False" Then Exit Sub

'отключаем обновление экрана
Application.ScreenUpdating = False

'открываем файл с данными
Set wbData = Workbooks.Open(sPath, UpdateLinks:=False, ReadOnly:=True)

'копируем столбцы
arr=wbData.Worksheets("Лист1"). Range("B14:H19").Value
ThisWorkbook.Worksheets("Данные").Range("B14").Resize(6,7)=arr

'закрываем файл с данными
wbData.Close SaveChanges:=False

'включаем обновление экрана
Application.ScreenUpdating = True

MsgBox "Данные на лист База загружены!", vbInformation, "Загрузка данных"
End Sub