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:

Sub Fill_Blank_Cells()
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
End Sub

Originally Posted by MarvinP

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

Sub FillFromBottom()

    Dim RowCtr As Long, LastRow As Long
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For RowCtr = LastRow To 2 Step -1
        If Cells(RowCtr, "A") = "" Then
            Cells(RowCtr, "A") = Cells(RowCtr + 1, "A")
        End If
    Next RowCtr
End Sub

That worked perfectely! Thanks a lot!