Trying to add a second condition to a macro that will delete rows

Hello,

I am a newb and have been searching on how to delete rows based on two conditions. The first sub works but I cant combine them, the two conditions are:
1- Delete all rows that have dates less than "1/1/15" (found in Column C)
2- Delete all rows that are not equal to "LOS Loan Origination System" (found in Column J)

Any advice would be appreciated.

Sub deleteFiltered()
Dim rng As Range

With Worksheets("Report Work Orders by group, da")
If Not .AutoFilterMode Then
Columns("C:C").Select
Selection.AutoFilter
("Report Work Orders by group, da").Range("$C$1:$C$2250").AutoFilter Field:=1,Criteria1:= _
"<1/1/2015", Operator:=xlAnd
End If
With .AutoFilter.Range
On Error GoTo exithandler
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)

End With
End With
rng.EntireRow.Delete
Columns("c:c").Select
Selection.AutoFilter
exithandler:
End Sub


Here is the second one

With Worksheets("Report Work Orders by group, da")
If Not .AutoFilterMode Then
Columns("J:J").Select
Selection.AutoFilter
("Report Work Orders by group, da").Range("$J$1:$J$2250").AutoFilter Field:=1,Criteria1:= _
"<>LOS Loan Origination System", Operator:=xlAnd

You could try something similar to this:

Please Login or Register  to view this content.

Alf