Filling empty cells

Hello!

I had to add a little code to another macro to make it fill empty cells with a specified number (973).

I found almost ready code and modified it to fit my needs.

Currently it looks like that:

Please Login or Register  to view this content.

I have 2 questions:
1. Is there an easier way to do it? Maybe a lot faster one.
2. What do I have to change to make it work on column A instead of current selection?

Thanks for all the tips!