Macro help : Need a macro to delete rows that do not contain values >1 in columns O or P

So I am looking for a way to get a macro that will check if there are numbers equal to or above 1 in EITHER column O or column P.

If both of the cells in O and P are blank, then that row needs to be deleted.

If there is a value in column O or P that is 1 or over, then that column should be kept

Know this should be an easy one. Any help would be appreciated.

Thanks

sub macro_1()
dim count
for count = worksheetfunction.max(Range("O" & rows.count).end(xlup).row,Range("P" & rows.count).end(xlup).row) to 1 Step -1
  if Range("O" & count) = "" and Range("P" & count) = "" then rows(Count).delete
next count
end sub

Maybe:

Sub ostego()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.count To 2 Step -1
    If Range("O" & i) = "" And Range("P" & i) = "" Then
        Rows(i).Delete
    End If
Next i
End Sub

Give a format..