Sub mrshkei()
Dim arr, arr2, arr3, i As Long, lr As Long, lr2 As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
lr2 = Cells(Rows.Count, 11).End(xlUp).Row + 1
Range("K10:Q" & lr2).ClearContents
arr = Range("A10:H" & lr)
arr2 = Range("S2:S6")
ReDim arr3(1 To lr, 1 To 8): k = 1
For i = LBound(arr) To UBound(arr)
    If Left(arr(i, 5), 2) = arr2(1, 1) & "." Then
        If arr(i, 2) = arr2(2, 1) Then
            If arr(i, 6) = arr2(3, 1) Then
                arr3(k, 1) = arr(i, 5)
                arr3(k, 2) = arr(i, 2)
                arr3(k, 3) = arr(i, 6)
                arr3(k, 4) = arr(i, 3)
                arr3(k, 5) = arr(i, 7)
                arr3(k, 6) = arr(i, 8)
                k = k + 1
            End If
        End If
    End If
Next i
Range("K10").Resize(lr, 8) = arr3
    ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1").Sort.SortFields.Add2 Key:=Range("K10").Resize(lr, 1), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("1").Sort
        .SetRange Range("K9").Resize(lr + 1, 8)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub