Sheets("рейсы").Rows(y & ":" & y).Copy
   
    Sheets("просрочка").Range("A" & NumPos).Select
    Sheets("просрочка").Paste

 ActiveSheet.Range("$B$1:$Q$2008").AutoFilter Field:=4, Criteria1:= _
        "<=" & Application.EoMonth(Date, 0), Operator:=xlAnd

 

For i = 5 To Sheets("лист1").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
If WorksheetFunction.Sum(Sheets("лист1").Range([B][COLOR=#ff0000][FONT='Arial Black', Gadget]???)[/FONT][/COLOR][/B]) = sum Then

Function ActivatePDFprinter() As Boolean
    If Application.ActivePrinter Like "*PDF*" Then ActivatePDFprinter = True: Exit Function
    On Error Resume Next: Err.Clear
    With CreateObject("Shell.Application").Namespace(4).Items
        For N = 1 To .Count - 1
            ИмяПринтераExcel = .Item(N).Name & " (Ne" & Format(N - 1, "00") & ""
            If ИмяПринтераExcel Like "*PDF*" Then
                Application.ActivePrinter = ИмяПринтераExcel
                ActivatePDFprinter = True: Exit For
            End If
        Next
    End With
    If Not (Application.ActivePrinter Like "*PDF*") Then
        MsgBox "Не найден виртуальный принтер для печати в ПДФ", vbExclamation
    End If
    If Err Then MsgBox "Не удалось активировать виртуальный принтер для печати в ПДФ", vbExclamation
End Function

Sheets("Счет").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

Const sPaths$ = ThisWorkbook[COLOR=#ee1d24].Path [/COLOR]& "\backup1\"
    GetAttr (sPath)
    If Err Then MkDir sPath