VBA code to fill blank cells ranges

Hi there,

I'm facing difficulties to make a code that allow me to complete my databases in a smart way. This one should be easy...

According to the attached image, I need a code that fill the column A from the bottom to the top completing the blank cells with the last value found before the blank cell itself. For example: cells 8 and 7 should be filled with "Ford" and 5, 4 and 3 should be filled with "Honda".

img1.JPG

Can anyone help me?

Thank you so much!

Originally Posted by Nienaber

Hi there,

I'm facing difficulties to make a code that allow me to complete my databases in a smart way. This one should be easy...

According to the attached image, I need a code that fill the column A from the bottom to the top completing the blank cells with the last value found before the blank cell itself. For example: cells 8 and 7 should be filled with "Ford" and 5, 4 and 3 should be filled with "Honda".

Attachment 422925

Can anyone help me?

Thank you so much!

Select A2: A8
Run the following code:

Please Login or Register  to view this content.

Originally Posted by MarvinP

I agree with Alan's code but I like to use "Cell" instead of "Range". I'd write it like:

Please Login or Register  to view this content.

That worked perfectely! Thanks a lot!