[VBA] Αποθήκευση βιβλίου με το τρέχον όνομα φύλλου και φίλτρο

[ΧρύσαΚ]

Καλημέρα σας
Είμαι νεό μέλος και τελείως αρχάρια σε visual basic και προσπαθώ να αυτοματοποιήσω το εξής:
Από βιβλίο εργασίας, θέλω να αντιγράφεται το ενεργό φύλλο σε νέο βιβλίο και να αποθηκεύεται (πχ στην επιφάνεια εργασίας) με το όνομα του τρέχοντος φύλλου. Εάν είναι δυνατόν, να αποθηκεύεται και με το φίλτρο που θα έχω εφαρμόσει .
Το μόνο που έχω καταφέρει ως τώρα είναι να το απομονώνω και να αποθηκεύεται ως βιβλίο1.xls.
Παρακάτω είναι ο κώδικας που έχω χρησιμοποιήσει ως τώρα:

Dim strFileName As String

ActiveSheet.Copy

If strFileName = "False" Then Exit Sub 'User Canceled

ChDir "C:\Users\Chrissa\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Chrissa\Desktop\Βιβλίο1. xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

Εάν μπορούσε κάποιος να με βοηθήσει ή να με κατευθύνει κάπως, θα το εκτιμούσα πολύ!