What about this:

Sub Carrots()
Dim C As Range
For Each C In Columns(3).Cells
    If C <> "" Then
        If InStr(C.Value, "Fixed") <> 0 Then
            If InStr(C.Offset(1), "Fixed") <> 0 Then
                Rows(C.Offset(1).Row).Delete
            End If
        End If
    End If
Next C
End Sub