Marco/VBA to remove and replace group of text

Good day everyone!

I am currently in the process of reorganizing an excel sheet containing in-house stock and acceptable brands. I have to remove the portion "Alternate Option" from the entire worksheet and replace it with the actual item name.

Here is an example of what I have right now. (The asterisks indicates a blank row and there are populated columns to the left and right of this column that CANNOT be changed.

**********
Tape
Alternate Option
Alternate Option
Alternate Option
**********
Pen
Alternate Option
Alternate Option
**********

This setup goes on on for about 15,000 rows and doing this manually, is out of the question.

What I'm trying to figure out, if there's a way to to have a script do this for me so my end result would look like this;

**********
Tape
Tape
Tape
Tape
**********
Pen
Pen
Pen
**********


My idea is to have the script say something like; (Note: Each set of data may contain many alternate options while there are some that don't contain any.

if (row equals empty/null (not sure what is used) && next row is not Alternate Option);
replace following "Alternate Option" with row until new blank row is met


If anyone can help me out here, that would be awesome!!