Sub Test()
Dim supprRng As Range, Rng As Range, cell As Range
With Sheets("Data")
Set Rng = .Range(.Cells(2, "U"), .Cells(.Rows.Count, "U").End(xlUp))
End With
For Each cell In Rng.Cells
If cell.Value2 = "To Delete" Then
If supprRng Is Nothing Then
Set supprRng = cell
Else
Set supprRng = Union(supprRng, cell)
End If
End If
Next
If Not supprRng Is Nothing Then supprRng.EntireRow.Delete
End Sub