Sub Копирование1()
  Dim wbData As Workbook, sPath As String

    If MsgBox("Загрузить данные на лист База?", vbQuestion + vbYesNo, "Загрузка данных") = vbNo Then Exit Sub
    
    'очищаем данные на листе База
    With Worksheets("База").Range("A2:H10000")
        .Cells.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)
    
    'копируем столбцы
    wbData.Worksheets("Лист_1").Range("A11:H10000").Copy ThisWorkbook.Worksheets("База").Range("A2")
    
    'закрываем файл с данными
    wbData.Close SaveChanges:=False
    
    'включаем обновление экрана
    Application.ScreenUpdating = True
    
    MsgBox "Данные на лист База загружены!", vbInformation, "Загрузка данных"
    
      
End Sub

Sub ОбновитьТабл()
ActiveSheet.PivotTables("Сводная таблица2").PivotCache.Refresh
End Sub


Sub Ядро_обновить()
    Call Копирование1
    Call ОбновитьТабл
End Sub