Excel VB - Gewisse Daten Speichern bzw. Auslesen

Sub SaveFiltered()
    'Speicherpfad  
    Const FILEPATH = "C:\test.xlsx"  
    'Dialoge und ScreenUpdating ausschalten  
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    'Daten liegen auf dem ersten Sheet  
    With Sheets(1)
        'Alle Daten anzeigen für den Fall das ein Filter gesetzt ist  
        If .AutoFilterMode Then
            .ShowAllData
        End If
        'Daten in Spalte 5 auf leere Einträge filtern  
        .UsedRange.AutoFilter 5, "="  
        'Bereich der sichtbaren Zellen kopieren  
        .UsedRange.SpecialCells(xlCellTypeVisible).Copy
        'Neues Workbook erstellen, dort die Daten einfügen, speichern und schließen  
        With Workbooks.Add
            .Sheets(1).Range("A1").PasteSpecial xlPasteAll  
            .SaveAs FILEPATH, xlOpenXMLWorkbook
            .Close
        End With
        'AutoFilter im Quell-Sheet wieder deaktivieren  
        If .AutoFilterMode Then
            .ShowAllData
        End If
    End With
    'Dialoge Screenupdating wieder aktivieren  
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "Datei liegt unter '" & FILEPATH & "'", vbInformation  
End Sub