Filling in blank cells in column

I have this worksheet that comes from SQL that requires a macro to manipulate. In column B, I have a list of names (always starting in B5 but the last name in the list will always vary), but there's a varied number of blanks between the names. I'm looking to fill in those blanks, all the way down to the last row in which there is data in column D.

Here is what I have in my macro so far:

Please Login or Register  to view this content.

this used to work just fine. However, something about the SQL report changed (I can't figure out what that is) and it no longer fills in the blanks in the column. Everything is in the same place that it should be in the report, so everything *should* be matching up. But the macro just skips over this step. Does anyone have a better solution on how to do this?

The cells are not longer "Blanks" to VBA, but may be to your eyes.
You can easily do a simple test:
Highlight (Select the range)
CRTL plus G
Go to special then
Select blank
and see if blank cells are selected or highlighted.

Yes, that is it. Okay, looks like I'll have to add in a find/replace into the macro to turn those back all into blanks. Thank you!

Adam,
What I meant was if you have what appears to be blank cells, but the code does not find these blanks cells, it means these cells are not blank(At least to VBA). This usually happens when you have imported data in to excel.

Right, they're now showin up as not being blank cells. Is there a way to fix this other than doing a find/replace to turn them into blank cells for VBA's sake?

Yes, if you could attach the sample to see the data type.

Here it is. This is the report after the macro has been run. I had to hide the data for security reasons but other than that, this is pretty much what it looks like now once the macro runs.

Try the attached.

Amended code in module 1.

Yes!!!! That works perfectly! Thank you thank you thank you