How to fill in blank cells in column by copying filled cell above

I need to copy a cell value down a column until there is a non-empty cell. When such a cell is encountered, its value needs to be copied down until another non-empty cell is found. In column A of the following example, the space under ‘tao’ should be filled with copies of ‘tao’, the space under solitarius should be filled with ‘solitarius’, etc.

fill example

I know this is fairly trivial to do by hand, but with 34000 entries I’m looking for an easier way.

Try macro from this project

Thanks JohnSUN, this was exactly what I was looking for!

(Turning @JohnSUN’s comment into an answer so we can resolve this question)

Quoth JohnSUN:

Try macro from this project