sFileName1 = Application.GetOpenFilename _
                  (fileFilter:="Microsoft Excel Files (*.xls; *.xlsx; *.xlsm; *.xlsb), *.xls; *.xlsx; *.xlsm; *.xlsb", Title:="Открываем файл предыдущего ГПД - Проверка дней доставки")
      If sFileName1 = False Then
      MsgBox "Проверяем без проверки по дням"
      Application.Calculation = xlCalculationManual
       sFileName = Application.GetOpenFilename _
                  (fileFilter:="Microsoft Excel Files (*.xls; *.xlsx; *.xlsm; *.xlsb), *.xls; *.xlsx; *.xlsm; *.xlsb")
  Set wbWB_GPD = Workbooks.Open(sFileName, ReadOnly)
      GoTo 2
      End If
      Set wbWB_GPDl = Workbooks.Open(sFileName1, ReadOnly)
  sFileName = Application.GetOpenFilename _
                  (fileFilter:="Microsoft Excel Files (*.xls; *.xlsx; *.xlsm; *.xlsb), *.xls; *.xlsx; *.xlsm; *.xlsb", Title:="Дйствующий ГПД")
  Set wbWB_GPD = Workbooks.Open(sFileName, ReadOnly)
  
  wbWB_GPD.Activate
   Sheets.Add.Name = "Проверка дней"
    wbWB_GPDl.Activate
     Sheets("ГПД").Select
    Cells.Select
    Selection.Copy
     wbWB_GPD.Activate
     Sheets("Проверка дней").Select
      ActiveSheet.Paste
 
       Sheets("ГПД").Select
             Range("U11").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C21,'Проверка дней'!R2,0)-7,0)="""","""",VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C21,'Проверка дней'!R2,0)-7,0))"
     Range("V11").Select
       ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C21,'Проверка дней'!R2,0)-6,0)="""","""",VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C21,'Проверка дней'!R2,0)-6,0))"
     Range("W11").Select
      ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C23,'Проверка дней'!R2,0)-7,0)="""","""",VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C23,'Проверка дней'!R2,0)-7,0))"
    Range("X11").Select
    ActiveCell.FormulaR1C1 = _
       "=IF(VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C23,'Проверка дней'!R2,0)-6,0)="""","""",VLOOKUP(RC8,'Проверка дней'!C8:C106,MATCH(ГПД!R2C23,'Проверка дней'!R2,0)-6,0))"
  
    Range("U11:X11").Select
        Selection.Copy
    Range("U11:X1100").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    

  
    Application.Calculation = xlCalculationManual