[Spirosgr]

Καλησπέρα
Η μέθοδος που περιγράφεις δόθηκε στο post #2 Book 1
Γι αυτούς που παρακολουθούν το θέμα και έχουν παρόμοια ζητήματα να λύσουν

Υπόδειγμα του κώδικα που κάνει την ταξινόμηση
όπου Sheet3 το κωδικό όνομα φύλλου
όπου Table4 το όνομα πίνακα
όπου Table4[Final] η προς ταξινόμηση στήλη
'Αν θέλουμε ταξινόμηση από μικρότερο σε μεγαλύτερο να αλλάξει στην σειρά
'Key:=Range("Table4[Final]"), SortOn:=xlSortOnValues, Order:=xlDescending
'το Order:=xlDescending με Order:=xlAscending

Sub SortTblDescending()
    Application.ScreenUpdating = False
    Sheet3.ListObjects("Table4").Sort.SortFields.Clear
    Sheet3.ListObjects("Table4").Sort.SortFields.Add _
            Key:=Range("Table4[Final]"), SortOn:=xlSortOnValues, Order:=xlDescending, _
            DataOption:=xlSortNormal
    With Sheet3.ListObjects("Table4").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Ακόμη με αυτές τις γραμμές κώδικα

Sub RowAddTbl()
    Application.ScreenUpdating = False
    ActiveSheet.Range("B5").ListObject.ListRows.Add (1)
End Sub

Μπορεί να γίνεται εισαγωγή γραμμών στους πίνακες
όπου B5 το πρώτο αριστερά κελί κάτω από την κεφαλίδα
δηλ. το κελί που αρχίζουν τα κυρίως δεδομένα
όπου (1) σε ποιο σημείο του πίνακα θα εισαχθεί γραμμή
με το 1 αμέσως κάτω από την κεφαλίδα

Και με αυτές τις γραμμές

Sub UnemploymentDate()
    Application.ScreenUpdating = False
    Selection.Value = Range("Unemployment").Value
End Sub

σε όποιο κελί επιλέξουμε μπαίνει η ημερομηνία ανεργίας (το κίτρινο κελί σου)
όπου Unemployment η ονομασία του κελιού που περιέχει την ημερομηνία
Μπορείτε να ορίσετε ένα κελί με =TODAY() ως Unemployment και να εισάγετε την σημερινή ημερομηνία
ΥΓ: Τα παραπάνω ισχύουν για Πίνακες και όχι για περιοχές ...εκτός από τον 3 ο κώδικα που ισχύει παντού