Sub SupRPROTO()
Dim r As Range, pf As Range
With ActiveSheet
Set r = .Columns(3).SpecialCells(xlCellTypeConstants, 23)
.Range("C2:C" & .[C65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value = "£££"
.Range("C1").AutoFilter 1, "=R*", xlOr, "=PROTO*"
Set pf = .Range("_FilterDataBase")
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
Set r = .Columns(3).SpecialCells(xlCellTypeConstants, 23)
For Each c In r
If c = "£££" Then c.ClearContents
Next
End With
End Sub