Ανανέωση ιστοσελίδας

[vasilis79]

Καλησπέρα σε όλο το forum.
Στο αρχείο που έχω ανεβάσει έχω ένα πινακάκι(κελιά E15:G35).Θέλω να γίνεται αυτόματα ταξινόμηση βάση του ποσοστού(F15:F35).Δοκίμασα να το κάνω με αυτόν τον κώδικα.

Sub sortononecolumn()
Range("E15").CurrentRegion.Sort key1:=Range("F15"), order1:=xlDescending, Header:=xlNo
End Sub

Αυτό δουλεύει κανονικά αλλά κάθε φορά που αλλάζω τα "expected goals" των ομάδων δεν κάνει αυτόματα την ταξινόμηση και αναγκάζομαι να κάνω κλικ στην καρτέλα "Δεδομένα"¨και στο εικονίδιο ταξινόμηση Ω προς Α.
Όποια βοήθεια καλοδεχούμενη.Ευχαριστώ εκ των προτέρων !