[GeorgeK]

Καλημέρα Χρήστο

Σε κάθε φύλο αντέγραψε τον παρακάτω κώδικα

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("f4:f39")) Is Nothing Then
    Range("range1").Sort key1:=Range("b5"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub

όπου range("range1") η περιοχή Α4:F39. Μπορείς βέβαια να ονομάσεις τις περιοχές σου όπως σε βολεύει ή να μην τις ονομάσεις καθόλου.
Καταχωρείς τις εγγραφές σου και προχωράς στο επόμενο κελί με tab. Μόλις καταχωρήσεις το ποσό στη στήλη ΠΙΣΤΩΣΗ και πατήσεις tab θα γίνει η ταξινόμηση αυτόματα με κριτήριο το ΟΝΟΜΑΤΕΠΩΝΥΜΟ ( key1:=Range("b5")) Αν θέλεις να γίνει ως προς άλλη στήλη άλλαξε το b5
Στο συνημμένο ο κώδικας είναι στο πρώτο φύλο
Προσοχή: 1) Δεν μπορείς να κάνεις undo. 2) Αν δε φτάσεις μέχρι τη στήλη F δε θα γίνει ταξινόμηση 3) Έχω προσθέσει μια ενδιάμεση γραμμή για να γίνετε η ταξινόμηση επειδή η πρώτη γραμμή είναι merged

Γιώργος