How about:

Range("b1").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Value = "Filled"
ActiveCell.Offset(1, 0).Select
Loop

HTH

"Diane" wrote:

I have a column that has a random number of entries in it (sometimes cell
B1-B20 are filled sometimes B1-B4 are filled, etc). I am looking to write a
macro that when run, will check to see if there is a value in column B, and
if so, fill the corresponding cell in Column C with "FILLED"