Sub Classifica()
'
' Classifica Macro
' Macro registrata il 30/10/2000 da Danilo Marcucci
'
' Scelta rapida da tastiera: CTRL+b
'
    Range("B2:D9").Select
    Selection.Copy
    Range("B14").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Range("B14:D21").Select
    Range("D21").Activate
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("D21"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1").Select
End Sub