[Tasos]

Νικόλα, για να αποθηκευσεις μια φιλτραρισμένη περιοχή σε άλλο φύλλο του βιβλίου προγραμματιστικά μπορείς να χρησιμοποιήσεις τον παρακάτω παραδειγματικό κώδικα:

Sub Copy_AutoFilter_Range()
    Dim rng As Range
    If Worksheets("Records").AutoFilterMode Then
    Application.ScreenUpdating = False
        Set rng = Worksheets("Records").AutoFilter.Range
        With Worksheets("Results")
            .UsedRange.ClearContents
             rng.Copy
            .Range("A1").PasteSpecial xlPasteColumnWidths
            .Range("A1").PasteSpecial xlPasteAll
            Application.CutCopyMode = False
            MsgBox "Done!"
        End With
    End If
End Sub

Τώρα εντελώς εκπαιδευτικά, υπάρχει και μια άλλη προσέγγιση όπου τα δεδομένα σου περνιούνται κατευθείαν σε ListBox σε φόρμα (Βλ. συνημμένο *.xls).

Καλή συνέχεια!

Τάσος