Function SumByInteriorColor(rRange As Range, rColorCell As Range, Optional bSumHide As Boolean = False)
    'Application.Volatile  'раскомментировать, чтобы функция обновляла свои значения по нажатию Shift+F9(пересчет листа)
    Dim lColor As Long, rCell As Range, dblSum As Double, vVal
    lColor = rColorCell.Interior.Color
    For Each rCell In rRange
        If rCell.Interior.Color = lColor Then
            vVal = rCell.Value
            If IsNumeric(vVal) Then
                If rCell.EntireRow.Hidden Or rCell.EntireColumn.Hidden Then
                    If bSumHide Then dblSum = dblSum + vVal
                Else
                    dblSum = dblSum + vVal
                End If
            End If
        End If
    Next rCell
    SumByInteriorColor = dblSum
End Function

Sub Perenos()
Application.ScreenUpdating = False
Dim Model As String
Dim Shablon As String
Dim Path As String
    Model = Range("BJ2") - в ячейке полный путь к файлу
    Shablon = Range("BJ3") - в ячейке полный путь к файлу
    Path = ThisWorkbook.Path & "\"
Workbooks.Open Filename:=Model
Worksheets("РГЕ").Activate
Range("A1:A300000,B1:B300000,C1:C300000,D1:D300000,J1:J300000,K1:K300000,L1:L300000,N1:N300000,O1:O300000").Select
        Selection.Copy
Workbooks.Close Filename:=Model - вот на эту строчку ругается
    Windows("Шаблон для расчета.xlsm").Activate
    Sheets("Модель").Select
    Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Selection.PasteSpecial Operation:=xlNone
        Selection.PasteSpecial SkipBlanks:=False
        Selection.PasteSpecial Transpose:=False
With Application
    .ScreenUpdating = False: .CutCopyMode = False
End With
End Sub