Sub FUParm_RrintPDF()
Dim LastNummer As Long ' pewniej long niż Integer
Dim LastCel As Range
Dim FileNamn As String
Dim kryteria As Variant, i As Integer, Tabla()
 'CreatesPdfFilenameToCellC1

     'LastNummer = Last(ActiveSheet.Columns("C:C")) 'variabel last deklarerad i >> Function Last(rng As Excel.Range) As Long
     'testowo
     Set LastCel = ActiveSheet.Range("$B$7:" & ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Address) ' to tylko dla testów, przy filtrach nie zadziała prawidłowo
     ActiveSheet.PageSetup.PrintArea = LastCel
     
kryteria = Array("Vecka", "14 dagar", "1 Mån", "3 Mån", "6 Mån", "1 År")

Application.ScreenUpdating = False
For i = 0 To 5
ReDim Preserve Tabla(0 To i)
Tabla(i) = kryteria(i)
    LastCel.AutoFilter Field:=1, Criteria1:=Tabla, Operator:=xlFilterValues
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Temp\" & kryteria(i) & " - " & Range("C1").Value, OpenAfterPublish:=False

Next i
'ostatnie kryteria wpisz ręcznie, nie da się dopisać do pętli
         
     Application.ScreenUpdating = True
     
End Sub

Option Explicit
Sub FUParm_RrintPDF()
Application.ScreenUpdating = False
Dim LastNummer As Integer
Dim LastCel As Range
Dim FileNamn As String
CreatesPdfFilenameToCellC1

    LastNummer = Last(ActiveSheet.Columns("C:C")) 'variabel last deklarerad i >> Function Last(rng As Excel.Range) As Long
    Cells(LastNummer, 9).Select
    Application.ScreenUpdating = False
    Set LastCel = Selection
    ActiveSheet.PageSetup.PrintArea = "$B$2:" & LastCel.Address
    
    

    ActiveSheet.Range("$B$7:" & LastCel.Address).AutoFilter Field:=4, Criteria1:=Array("Vecka"), Operator:=xlFilterValues
        With ActiveSheet
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\" & "Vecka - " & Range("C1"), OpenAfterPublish:=False
        End With
    Application.ScreenUpdating = False

    ActiveSheet.Range("$B$7:" & LastCel.Address).AutoFilter Field:=4, Criteria1:=Array("Vecka", "14 dagar"), Operator:=xlFilterValues
        With ActiveSheet
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\" & "14 dagar - " & Range("C1"), OpenAfterPublish:=False
        End With
    Application.ScreenUpdating = False
    
    ActiveSheet.Range("$B$7:" & LastCel.Address).AutoFilter Field:=4, Criteria1:=Array("Vecka", "14 dagar", "1 Mån"), Operator:=xlFilterValues
        With ActiveSheet
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\" & "1 Mån - " & Range("C1"), OpenAfterPublish:=False
        End With
    Application.ScreenUpdating = False
    
    ActiveSheet.Range("$B$7:" & LastCel.Address).AutoFilter Field:=4, Criteria1:=Array("Vecka", "14 dagar", "1 Mån", "3 Mån"), Operator:=xlFilterValues
        With ActiveSheet
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\" & "3 Mån - " & Range("C1"), OpenAfterPublish:=False
        End With
    Application.ScreenUpdating = False
    
    ActiveSheet.Range("$B$7:" & LastCel.Address).AutoFilter Field:=4, Criteria1:=Array("Vecka", "14 dagar", "1 Mån", "3 Mån", "6 Mån"), Operator:=xlFilterValues
        With ActiveSheet
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\" & "6 Mån - " & Range("C1"), OpenAfterPublish:=False
        End With
    Application.ScreenUpdating = False
    
    ActiveSheet.Range("$B$7:" & LastCel.Address).AutoFilter Field:=4, Criteria1:=Array("Vecka", "14 dagar", "1 Mån", "3 Mån", "6 Mån", "1 År"), Operator:=xlFilterValues
        With ActiveSheet
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\" & "1 År - " & Range("C1"), OpenAfterPublish:=False
        End With
    Application.ScreenUpdating = False
    
    ActiveSheet.Range("$B$2:" & LastCel.Address).AutoFilter Field:=4, Criteria1:="<>"
         With ActiveSheet
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\" & "Fullständigt checklista - " & Range("C1"), OpenAfterPublish:=False
        End With
    Application.ScreenUpdating = False
    
End Sub