Better way than using a do until loop?

Holger's code oughta work-you could also use a for next loop

Sub Filter()

Dim lngRowCounter As Long

For lngRowCounter = 4 to 14
  If lcase(Cells(lngRowCounter, "B").Value) = "engineering" Then
    Range("C20").Value = Cells(lngRowCounter, "C").Value
    Exit For
  End If
Next lngRowCounter

End Sub