Sub Расчёт_простоя()
     Dim strFindData As String

   Dim rgFound As Range

   Dim i As Integer

  Sheets("Расчёты").Select
    Range("B2").Select

   ' Ввод строки для поиска

   strFindData = Range("B2")

   ' Просмотр всех рабочих листов книги

   For i = 1 To Worksheets.Count ' (сомневаюсь на счёт этой строки)

      With Worksheets("Время простоев").Cells

         ' Поиск на  листе "Время простоев"

         Set rgFound = .Find(strFindData, LookIn:=xlValues)

         If Not rgFound Is Nothing Then

            ' Ячейка с заданным значением найдена - выделим ее

            Sheets("Время простоев").Select

            rgFound.Select

 Do While Not IsEmpty(ActiveCell.Value) ' ищем последнюю непустую ячейку и смещаемся на одну вправо

      ActiveCell.Offset(0, 1).Select

   Loop
  
    
   

   ActiveCell = Workbooks("ТОиР ОГМ.xlsm").Sheets("Расчёты").Range("B1") ' Занесение в активную ячейку результата из ячейки А1
Sheets("Время простоев").Select
'*****************************************
'Сохранение отчёта в папку
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Отчёты\Отчёты_по_простоям\Отчёт_по_простоям_" & Format(Now, "_DD_MMMM_YYYY") & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        
Exit Sub

         End If

      End With

   Next  ' расчёт времени простоя завершён
        
End Sub

Sub Сохранение
Sheets ("Лист2"). Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
"D:\Отчёты\Оборудование\Ремонт_"& Format(Now, "_DD_MMMM_YYYY") & ".pdf"
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
OpenAfterPublish:=True
End Sub