Копирование значений листа с закрытой книги - VBA

Формулировка задачи:

Подскажите пожалуйста, как можно скопировать лист не сохраняя формат листа (объединенные ячейки, цвета, границы таблицы и т.п.), а просто вставить в др. лист как значение? - у меня есть нижеуказанный макрос который копирует с сохранением формата если можно то его изменить

                    Листинг программы
                
 
                        
                          
                    
Sub копировать()
   Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("стереть")
        Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "массив.xlsx"
        Cells.Copy .[a1]
        ActiveWorkbook.Close SaveChanges = False
    End With
   Application.ScreenUpdating = True
End Sub

Решение задачи: «Копирование значений листа с закрытой книги»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub копировать123()
Application.ScreenUpdating = False 'отключаем обновление экрана
Application.DisplayAlerts = False ' отключаем вывод сообщений
' открываем файл-донор и с  листа копируем всю иинформацию
Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "массив.xlsx"
Sheets("Лист1").Select
Cells.Select
Selection.Copy
'активируем окно с файлом-приемником и вставляем инфу
Windows("отчет — копия.xlsm").Activate
Worksheets("стереть").Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' активируем окно с файлом-донором и закрываем его без сохранения
Windows("массив.xlsx").Activate
ActiveWorkbook.Close SaveChanges = False
' активируем окно с файлом-приемником
Windows("отчет — копия.xlsm").Activate
 
Application.ScreenUpdating = True 'включаем обновление экрана
Application.DisplayAlerts = True 'включаем вывод сообщений
End Sub