Macro to copy data in rows based on criteria

I am looking for help to write a simple macro. Starting on column B66 is the word "Short" below that in the next 20 cells I would like a macro to write the word "Long Basket". If the word was "Long" then I would like the macro to write the word "Short Basket" for the next 20 cells (ex:B130). I would like a macro to loop through every example and do this. Can anyone help with this? thanks!!