Sub Juhuku()
    
    
    Range("B3:B18").Select
    ActiveSheet.Range("$B$3:$B$18").RemoveDuplicates Columns:=1
    
    Range("B3:B18").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B3:B16") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "NK-1,NK-2,NK-3,NK-4,NK-5,NK-6,NK-7,NK-8,NK-9,NK-10,NK-11,NK-12", DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B3:B18")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
    
       
End Sub