VBA code to fill blank cells ranges

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