Fill empty cells with values from the previous cells

CellInR_FillInEmptyCellWithPrevious.bas

Sub FillInEmptyCellWithPrevious()

Dim Cell As Range
Dim Region As Range
Set Region = Worksheets("Extract").Range(Cells(3, 1), Cells(ActiveSheet.UsedRange.Rows.Count, 3, 3))
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each Cell In Region

If IsEmpty(Cell.Value) Then Cell.Offset(-1, 0).Select  'if cell is empty then put the value from the previous cell
    Selection.Copy ActiveCell.Offset(1, 0)

Next Cell

End Sub