Ciao.

Come primo suggerimento, per rendere relativo il foglio su cui lancerai la macro, sostituirei ActiveWorkbook.Worksheets("Statistiche") con Activesheet.

Seconda cosa, per rendere relativo anche la selezione delle celle, dichiarerei una variabile per la selezione delle celle (del tipo Selezione= Selection.Address) da mettere dopo che hai selezionato appunto tutte le celle che ti interessa elaborare (in questo caso dopo Range(Selection, Selection.End(xlDown)).Select). Questa variabile poi la inserirei al posto di tutte le dichiarazioni di Range fissi per ottenere così l'ordinamento in maniera relativa.

Tienici aggiornati
Ciao