Option Explicit
Sub ВосстановитьИзАрхива()
Dim wb1 As Workbook, wb2 As Workbook, sh As Worksheet, arr()
Dim txt$, billName$, logName$
Dim flag As Boolean, flag2 As Boolean, i&, lr&

If MsgBox("Вы собираетесь восстановить детализацию из архивного файла для её изменения?" & vbLf & vbLf & "Продолжить?", vbOKCancel + vbQuestion + vbDefaultButton2) = vbCancel Then GoTo ex

txt = GetFilePath("Выберите архивный файл-отчёт по необходимой ведомости (*.xlsx)", ThisWorkbook.Path, "*.xlsx")
If txt = "" Then Exit Sub
Application.ScreenUpdating = 1: On Error GoTo er
On Error GoTo 0
billName = "ведомость": logName = "хранилище (выгрузка)"
Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Open(txt)
    For Each sh In wb2.Worksheets
        If sh.Name = billName Then flag = 1
        If sh.Name = logName Then flag2 = 1
    Next sh
If Not flag Then MsgBox "В выбранном файле отсутствует лист «" & billName, vbCritical, "ОШИБКА ФАЙЛА": wb2.Close False: GoTo ex
If Not flag2 Then MsgBox "В выбранном файле отсутствует лист «" & logName, vbCritical, "ОШИБКА ФАЙЛА": wb2.Close False: GoTo ex

lr = wb2.Worksheets(logName).Cells(Rows.Count, 1).End(xlUp).Row
arr = wb2.Worksheets(logName).Cells(2, 1).Resize(lr - 1, 14).Value

wb2.Worksheets(billName).Cells.Copy
wb1.Worksheets(billName).Activate
wb1.Worksheets(billName).Cells.Select
wb1.Worksheets(billName).Paste
Application.CutCopyMode = 0: wb2.Close False
wb1.Worksheets("накопительная").Range("C2").Resize(lr - 1, 14).Value = arr

GoTo fin
er: MsgBox "Сообщите разработчику…", vbCritical, "НЕПРЕДВИДЕННАЯ ОШИБКА"
ex: MsgBox "Отмена выполнения…", vbInformation, "ВЫХОД"
fin: Application.ScreenUpdating = 1: Application.DisplayAlerts = 1: Application.CutCopyMode = 0
End Sub
'===============================================
Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:\", _
                     Optional ByVal FilterDescription As String = "Книги Excel", _
                     Optional ByVal FilterExtention As String = "*.xls*") As String
    ' функция выводит диалоговое окно выбора файла с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранному файлу, или пустую строку в случае отказа от выбора
    ' для фильтра можно указать описание и расширение выбираемых файлов
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator
    End With
End Function