Ryd alle filtre i fanen "PCD afregning" (ELLER ignorer filtre).

Hej Eksperter

Er der en måde hvorpå jeg kan tilføje en linje til nedenstående, som går ind i fanen "PCD afregning" og nulstiller valgte autofiltre.

Eller... Endnu bedre, at nedenstående makro ignorerer alle filtre, men stadig bibeholder dem?

Makro:

Sub DanFil(madhusnr As Integer, madhusnavn As String)
    Dim wkbTarget As Workbook
    Dim wkbSource As Workbook
    Set wkbSource = ActiveWorkbook
    Set wkbTarget = Workbooks.Add
    Dim wksSource As Worksheet
    Set wksSource = wkbSource.Worksheets("PCD afregning")
       
    Dim c As Range
    Dim tCell As Range
    Dim lastKundenr As String

    'Sæt overskrifter
    With wkbTarget.Worksheets(1)
        Set tCell = .Range("A1")
        tCell.Value = "dato"
        tCell.Offset(0, 1).Value = "kundenummer"
        tCell.Offset(0, 2).Value = "varenummer"
        tCell.Offset(0, 3).Value = "varetekst"
        tCell.Offset(0, 4).Value = "antal"
        tCell.Offset(0, 5).Value = "nettopris"
    End With
   
    lastKundenr = "start"
   
    With wksSource
        For Each c In .Range("AF2", .Range("AF1").Offset(.Rows.Count - 1, 0).End(xlUp)).Cells
            If c.Offset(0, -31).Value = madhusnr Then
                If LCase(c.Offset(0, -1).Text) <> "x" Then
                    If c.Offset(0, 1).Value <> lastKundenr Then
                        Set tCell = wkbTarget.Worksheets(1).Range("A1").Offset(wkbTarget.Worksheets(1).Rows.Count - 1, 0).End(xlUp).Offset(1, 0)
                        lastKundenr = c.Offset(0, 1).Value
                        tCell.Value = c.Value
                        tCell.Offset(0, 1).Value = c.Offset(0, 1).Value
                        tCell.Offset(0, 2).Value = "'" & wkbSource.Names("Varenummer").RefersToRange.Text
                        tCell.Offset(0, 3).Value = wkbSource.Names("Hovedoverskrift").RefersToRange.Value
                        tCell.Offset(0, 4).Value = 1
                        tCell.Offset(0, 5).Value = ""
                    End If
                    Set tCell = wkbTarget.Worksheets(1).Range("A1").Offset(wkbTarget.Worksheets(1).Rows.Count - 1, 0).End(xlUp).Offset(1, 0)
                    tCell.Value = c.Value
                    tCell.Offset(0, 1).Value = c.Offset(0, 1).Value
                    tCell.Offset(0, 2).Value = c.Offset(0, 2).Value
                    tCell.Offset(0, 3).Value = c.Offset(0, 3).Value
                    tCell.Offset(0, 4).Value = c.Offset(0, 4).Value
                    tCell.Offset(0, 5).Value = c.Offset(0, 5).Value
                End If
            End If
        Next
    End With
   
    wkbTarget.SaveAs wkbSource.Names("PlaceringAfFil").RefersToRange.Value & "\" & wkbSource.Names("Navngivning").RefersToRange.Value & "-" & madhusnavn, xlCSV
    wkbSource.Activate
End Sub