Right click the sheet tab, view code and paste this in. It looks for red text
on column A and deletes the entire row if it finds it

Sub delete_Me()
Dim copyrange As Range
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set myrange = Range("A1:A" & lastrow)
For Each c In myrange
   If c.Font.ColorIndex = 3 Then 'Red change to suit
       If copyrange Is Nothing Then
               Set copyrange = c.EntireRow
       Else
               Set copyrange = Union(copyrange, c.EntireRow)
       End If
   End If
Next
copyrange.Delete
End Sub

Mike