Fill in blanks with a value using a Macro

In the attached file, there is a column called status. The column is normally up to 3k rows. However, they only update the yellow and red status and leave the green blank. I want a macro that will scan the column and enter "green" in the empty cells for that column... see attached...