problemi ad ordinare sul file gestione fantacalcio

ciao a tutti
ho un problema con il file che vi allego

è un file che ho fatto io per gestire la mia lega di fantacalcio

mi piacerebbe ordina dinamicamente (all'inserimento dei risultati) la porzione del file excel (foglio chiamato CALENDARIO) dove è riportata la classifica (da A41 a R48) in ordine decrescente di punti (la colonna di riferimento sarebbe (da r41 a r48)

Ho creato una macro cosi'
------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets("Calendario").Range("a41:r48").Sort Key1:=Range("r1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub
------------------------------------------------------
mi da' un errore in compilazione

ERROR run_time 1004
Per il completamento dell'operazione è necessario che le celle unite siano di dimensioni identiche

come posso risolvere??
grazie


ah dimenticavo.....ecco il file dove devo aggiornare la classifica


https://www.dropbox.com/s/5d2utcnmxp2di87/come%20ordinare%20la%20classifica.xls