Find and replace with criteria - VBA code

Hi, i have below code which, if the value of cell C1 is greater than 5 it will find the word "SERIES" and replaces with "" (blank) in cell B1.
i want this to be repeated for all cells under column "B" by referring the cells of column "C".
Could anyone help.

thanks
Shreeja.

If Range("C1").Value > 5 Then

    Range("B1").Select
    Selection.Replace What:="SERIES", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Else
        MsgBox ("NO DATA FOUND")
        End If