Sub StephanC()
'
' StephanC Macro
'
'
Range("G1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$20").AutoFilter Field:=9, Criteria1:= _
"<>TR90DCI0", Operator:=xlAnd
Rows("2:2").Select
Range("G2").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.End(xlUp).Select
Selection.AutoFilter
End Sub