Sub ПечатьPDF_выборочно()
    s = InputBox("Выбрать порядковый номер вкладки", "Печать листов", "1,2,4")
    If StrPtr(s) = 0 Or s = "" Then Exit Sub
    a = Split(s, ",")
    Filename = Application.GetSaveAsFilename(fileFilter:="Файлы PDF (*.pdf), *.pdf")
    sc = Sheets.Count
    Dim b() As String
    n = 0
    For i = 0 To UBound(a)
        If CInt(a(i)) <= sc Then
            ReDim Preserve b(0 To n)
            b(n) = Sheets(CInt(a(i))).Name
            n = n + 1
        End If
    Next
    Sheets(b).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

        .PasteSpecial xlPasteColumnWidths
        .Paste

wbReport.SaveAs FileFormat:=51, CreateBackup:=False