Sub Macro3()
On Error Resume Next
Selection.AutoFilter Field:=1, Criteria1:="=*M9 TRACE*", Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Value = "M9 TRACE"
End Sub