Sub SAVE()

Sheets("СЧЕТ").Select
ActiveSheet.Range("$AI$15:$AL$30").AutoFilter Field:=1, Criteria1:="<>"

     Dim F_Filename As String, Folder As String
     With Application
         .DisplayAlerts = False
         With ActiveSheet
             Set FSO = CreateObject("Scripting.FileSystemObject")
             F_Filename = Split(.[AN4], ",")(0)
             Folder = F_Filename
             If Not FSO.FolderExists(Folder) Then FSO.CreateFolder Folder
             Set FSO = Nothing
             .PageSetup.PrintArea = "A1:AM65"
             ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:= _
                 Folder & "/" & .[AN4], _
                     Quality:=xlQualityHigh, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                     OpenAfterPublish:=False
         End With
         .DisplayAlerts = True
     End With
     
End sub