Sub Макрос3()
'
' Макрос3 Макрос
'
    Dim SourceWB As Workbook, DestWB As Workbook
    Dim SourceSheet As Worksheet, DestSheet As Worksheet
    Dim SourceFileName As String, DestFileName As String
    SourceFileName = "C:\Users\OLEGAS\Desktop\Замены.xlsx"
    Const SourceSheetName As String = "Лист1"
    Const DestSheetName As String = "Замены"
    Set SourceWB = Workbooks.Open(SourceFileName)
    Set SourceSheet = SourceWB.Sheets(SourceSheetName)
    Set DestSheet = ThisWorkbook.Sheets(DestSheetName)
    SourceSheet.Cells.Copy
    DestSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    SourceWB.Close SaveChanges:=False
    Set SourceSheet = Nothing
    Set DestSheet = Nothing
    Set SourceWB = Nothing
    Set DestWB = Nothing
End Sub