what you have can be made dynamic and reduced to three lines...
Code:
Sub Macro1_FilterNotEqual()
'
' Macro1_FilterNotEqual Macro
' AR not equal to IN in col B
'
'Range("B1").Select
'Selection.AutoFilter
'ActiveSheet.Range("$A$1:$G$35").AutoFilter Field:=2, Criteria1:="<>*IN*", _
Operator:=xlAnd
ActiveSheet.Columns("B").AutoFilter Field:=1, Criteria1:="<>*IN*", Operator:=xlAnd
'Rows("12:18").Select
'Selection.Delete Shift:=xlUp
ActiveSheet.UsedRange.Offset(1).Delete
'ActiveSheet.Range("$A$1:$G$31").AutoFilter field:=2
ActiveSheet.Columns("B").AutoFilter
'Range("A1").Select
End Sub