Clear contents of cells that do not contain specific text, sort cells that do

Perhaps something along the lines of:

Sub Example()
    With Sheets("855_FN005_DETAILED_ERROR").UsedRange.Columns(1)
        .AutoFilter Field:=1, Criteria1:="<>*dos*"
        On Error Resume Next
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        .AutoFilter
        .Sort Key1:=.Cells(1), Header:=xlNo
    End With
End Sub

Colin Legg provides a much better overview (and indeed) code of how to go about deleting rows in Excel - see: http://www.xtremevbtalk.com/showthread.php?t=300757