Sub 정렬()
'
' 정렬 매크로
'

'
    Range("C3:C22").Select
    ActiveWorkbook.Worksheets("sample").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sample").Sort.SortFields.Add2 Key:=Range("C3:C22") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("sample").Sort
        .SetRange Range("C3:C22")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub