Delete rows with specific text in column

[danieldaniel1]

I found the following macro on another forum (unfortunately I do remember who posted it):

Sub delete rows with ()

Columns("B:B").Select
Do Until notfound = 1
On Error GoTo done
Selection.Find(What:="(No risk)").Activate

ActiveCell.EntireRow.delete
Loop

done: notfound = 1

End Sub

What i need help with is to also delete all rows with "(Physical Store)" in the same macro but it does not work for me.

Thanks in advance