Sub Test67()

Dim i As Long
Dim Mass() As String 'Массив, в котором будут храниться данные
Dim FinalRow As Long 'Переменная последней строки
Workbooks.OpenText Filename:="C:\Expo\1.csv" 'Открываю книгу с данными
FinalRow = Range("A1").End(xlDown).Row 'Номер последней строки

ReDim Mass(FinalRow) As String

For i = 2 To FinalRow
    
    If Cells(i, 3) = "50cl - 202 Finished" And Cells(i, 4) = "Dome Growth" And Cells(i, 16) = "Production" Then
        Mass(i) = Cells(i, 5)
    End If
Next i

Максимум = Application.Max(Mass)
Минимум = Application.Min(Mass)
Cells(3, 18) = Максимум 'Выдает 0
Cells(3, 19) = Максимум 'Выдает 0

End Sub

  Sub Макрос2()
Dim Arr1() As String
    Workbooks.OpenText Filename:="C:\Expo\1.csv"
   kolvo = Range("A1").End(xlDown).Row ' количество строк
 
   ReDim Arr1(kolvo)
 For i = 2 To kolvo - 1
  
   If Cells(i, 3) = "33cl - 200 FIT Trimmed" And Cells(i, 4) = "Top Wall" And Cells(i, 16) = "Setup" Then
   Arr1(i) = Cells(i, 5).Value
   
   End If
   Next

 Range("S3") = Application.Min(Arr1)
 Range("S4") = Application.Average(Arr1(i))
 Range("S5") = Application.Max(Arr1)
 Range("S6") = Application.StDev(Arr1)
End Sub   

Sub Макрос5()
    Sheets("Все данные").Select

    c1 = ">=" & Range("AD4")
    C2 = "<=" & Range("AD6")
   
    ActiveSheet.Range("$A$1:$AD$990").AutoFilter Field:=7, Criteria1:=c1, _
        Operator:=xlAnd, Criteria2:=C2
End Sub

Sheets("Рапорт").Select

pathS = "\\192.168.64.33\Quality\10-ТЕСТЫ ПРОИЗВОДСТВО\Архив рапортов\"

    Application.ScreenUpdating = False
 
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     pathS & "" & Year(Date) & "-" & Month(Date) & _
    
 "-" & Day(Date) & "  " & Hour(Time) & "." & 
Minute(Time) & "   Бригада   " & Range("F5") & "-" & 
Range("F6") & ".PDF", Quality:= _
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
    Application.ScreenUpdating = True

pathS = "\\192.168.64.33\Quality\10-ТЕСТЫ ПРОИЗВОДСТВО\Архив рапортов\"
    Application.ScreenUpdating = False
 
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     pathS & "" & Year(Date) & "-" & Month(Date) & _
     "-" & Day(Date) & "  " & Hour(Time) & "." & Minute(Time) & "   Бригада   " & Range("F5") & "-" & Range("F6") & ".PDF", Quality:= _
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
    Application.ScreenUpdating = True