Sub DeleteRows()
Dim c As Range
Dim rng As Range
For Each c In Range("F3", Range("F65536").End(xlUp))
If c = "C" Then
If rng Is Nothing Then
Set rng = c
Else
Set rng = Union(rng, c)
End If
End If
Next c
If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub