Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then _
Range("B2:C101").Sort Range("C2"), xlDescending
If Not Intersect(Target, Range("D2")) Is Nothing Then _
Range("E2:F101").Sort Range("F2"), xlDescending
If Not Intersect(Target, Range("G2")) Is Nothing Then _
Range("H2:I101").Sort Range("I2"), xlDescending
Cancel = True
End Sub