Option Explicit
Sub Макрос3()
    Application.ScreenUpdating = False
    Sheets("Материалы").Select
    Range("A1").Select
    ' Запоминаем текущую книгу и лист
    Dim predlist As Worksheet
    Set predlist = ActiveSheet
    
    'Открываем файл с которого нужно скопировать данные (путь к файлу прописан полностью)
    Workbooks.Open Filename:="z:\!!!!!!Исходная база данных\Materials server.xlsx"
    Sheets("Материалы").Select
    'Копируем нужный диапазон в открывшейся книге на листе материалы (активный лист)
    Windows("Materials server.xlsx").Activate
    Range("A:L").Select
    Selection.Copy
    'Активируем последнюю книгу которую запомнила функция
    'запоминания в строках Dim/Set predlist
    
    predlist.Activate
    
'    Call Application
'    Windows("Сопроводительный лист.xlsm").Activate
    'Активация листа и ячейки в который необходимо вставить скопированный диапазон
    ActiveSheet.Paste 'Вставка
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.Select
    ' Закрытие файла
    Workbooks("Materials server.xlsx").Close
    Sheets("Сопроводительный лист").Select
    Application.ScreenUpdating = True
End Sub