Filling Blanks

Filling Blanks in a Database-Style Table #

what is it? #

When there are columns A and B, fill the empty cells in column A with the value from the cell above.

sample code #

Sub wordDBFill()

Do
If ActiveCell.value <> "" Then
    ActiveCell.Offset(1, 0).Activate
Else
    ActiveCell.value = ActiveCell.End(xlUp).value
    ActiveCell.Offset(1, 0).Activate
End If
Loop Until ActiveCell.Offset(0, 1).value = ""

End Sub

original post (Kor)