I am trying to use VBA to populate the first blank cell in row 6 with the word "Short"

I keep getting sub or function not defined and I am sure its because I am trying to Frankenstein some code together to get it to work. So far everything works as I need but this last step.

Any help would be appreciated.

Thanks