How to fill blank cells with values in other column?

Hi all,

Hope all going good.

In attached file, there's a macro in module 4 whose step 2 doesn't work properly.

My requirement is that if there are blank cells in column J (upto last row of column A), then those blank cells should be filled with the corresponding row value of column Q. But macro still gives blanks.

Can someone please check what's wrong with the code.

Thanks in advance.