This should work:


Sub FillInTheBlanks_1()
Dim Area As Range, LastRow As Long
On Error Resume Next
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
For Each Area In Intersect(Rows("25:" & LastRow), Range("C25"). _
Resize(LastRow).SpecialCells(xlCellTypeBlanks)).Ar eas
If Area.Row < 1000 Then
Area.Value = Area(1).Offset(-1).Value
End If
Next
End Sub






"J.W. Aldridge" wrote in message
...
Works fine. Just need to add command to stop at specific row.
Starts at 25, lets say stop specifically at row 1000.


Sub FillInTheBlanks_1()
Dim Area As Range, LastRow As Long
On Error Resume Next
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
For Each Area In Intersect(Rows("25:" & LastRow), Range("C25"). _
Resize(LastRow).SpecialCells(xlCellTypeBlanks)).Ar eas
Area.Value = Area(1).Offset(-1).Value
Next
End Sub