<colgroup><col></colgroup><tbody>
Dim Addr As String
Addr = Range("C2", Cells(Rows.Count, "C").End(xlUp)).Address
Range(Addr) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""BLR"",@)),""#N/A"",@)", "@", Addr))
Range(Addr).SpecialCells(xlConstants, xlErrors).EntireRow.Delete
</tbody>...