Find rows containing specific data and delete

You can add this to the top and it would make the whole macro non-case-sensitive.

Option Explicit
Option Compare Text

Sub DeleteProducts()