Delete row based on date and cell value

[Barryj]

I am wanting to delete rows that are greater than 30 days and based on the value "NO" in a cell. I have the date in column A and the Value "NO" will be in column C.

I have this macro to delete rows greater than 30 days but I need to add to it that only rows with NO in them will be deleted.

Sub DeleteCells()
Dim LR As Long, I As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For I = LR To 1 Step -1
    If Range("A" & I).Value <= Date - 30 Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub

Thanks for any assistance