Would like to delete rows based on cell content

Good Morning All,

The attached sample spreadsheet is divided into two sections. The top section is regular sales orders and the bottom section is non regular sales orders. I'm currently using the code below to delete rows based on color of column A. I would like to modify the current code to delete rows based on column A for regular sales orders only and to delete non regular sales orders based on SO status in column Q. Any non regular sales order with a SO status in column Q of A or S should be deleted with the macro. Any help is appreciated.

Sub deleteRowOnCollor()
    Dim lLR, lC As Long
    Application.ScreenUpdating = False
    lLR = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row 'Determine last row
    For lC = lLR To 3 Step -1
        Sheets(1).Cells(lC, 1).Activate
        If ActiveCell.Interior.Color = 15773696 Then 'Used index color.
            Rows(lC).Delete Shift:=xlUp 'delete row
        End If
    Next
    Application.ScreenUpdating = True
End Sub