Excel Button

Sub FillWithLastValue()
    Dim ws As Worksheet, cell As Range, lastValue As Variant
    Set ws = ActiveSheet
    With ws
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)  
            If cell.Value <> "" Then  
                lastValue = cell.Value
            Else
                cell.Value = lastValue
            End If
        Next
    End With
End Sub

Sub FillWithLastValue()
    Dim cell As Range
    With ActiveSheet
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)  
            On Error Resume Next
            cell.Value = cell.Offset(-1, 0).Value
        Next
    End With
End Sub