'Trascrive i Risultati nella Zona di record'
    Sheets("Formazioni").Select
    Range("BF3:BH9").Select
    Selection.Copy
    r = Cells(2, 58).Value
    Sheets("Risultati").Select
    Cells((r - 1) * 7 + 1, 52).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("Aq4:Ar10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Cells((r - 1) * 7 + 1, 55).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    
    'Classifica Generale'
    Sheets("Classifiche").Select
    Range("V4:AT17").Select
    Range("AT17").Activate
       Selection.Sort Key1:=Range("W4"), Order1:=xlDescending, Key2:=Range("AF4" _
        ), Order2:=xlDescending, Key3:=Range("AD4"), Order3:=xlDescending, _
        Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal

    'Classifica a Punti'
    Sheets("Risultati").Select
    Range("Aj19:Ak33").Select
    Selection.Sort Key1:=Range("Ak20"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("Aj20:Ak33").Select
    Sheets("Formazioni").Select
    r = Cells(2, 58).Value
    Sheets("Risultati").Select
    Selection.Copy
    Cells((r - 1) * 14 + 1, 60).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        
    'Ordinare Classifica Punti'
    Sheets("Classifiche").Select
    Range("u19:av33").Select
    Range("av33").Activate
    Selection.Sort Key1:=Range("u19"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        
    'Classifica_Parziale'
    Sheets("Classifiche").Select
    Range("V4:W17").Select
    Selection.Copy
    Sheets("Formazioni").Select
    r = Cells(2, 58).Value
    Sheets("Risultati").Select
    Cells((r - 1) * 14 + 1, 66).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    
    'Conteggio Media Portiere'
    Range("Aj212:AK225").Select
    Sheets("Formazioni").Select
    r = Cells(2, 58).Value
    Sheets("Risultati").Select
    Selection.Copy
    Cells((r - 1) * 14 + 1, 126).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False