Можно макросом в лоб:
[vba]Код
Sub d()
lR = ActiveSheet.UsedRange.Rows.Count
Range("b2:c" & lR).Copy
Range("l2").PasteSpecial Paste:=xlPasteValues
Range("E2:E" & lR).Copy
Range("o2").PasteSpecial Paste:=xlPasteValues
With ActiveSheet.Range("$l$1:$O$" & lR)
.AutoFilter Field:=1, Criteria1:=Array("#Н/Д", "8888", "х"), Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).ClearContents
End With
ActiveSheet.ShowAllData
With ActiveSheet.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("L1:L" & lR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
[/vba]