Stop fill in the blanks (down) at specific row

[J.W. Aldridge]

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)).Areas
Area.Value = Area(1).Offset(-1).Value
Next
End Sub

 

[JLGWhiz]

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)).Areas
If Area.Row < 1000 Then
Area.Value = Area(1).Offset(-1).Value
End If
Next
End Sub

 

[Rick Rothstein]

Give this a try...

Sub FillInTheBlanks_1()
Dim Area As Range, LastRow As Long
Const StopRow As Long = 1000
On Error Resume Next
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
For Each Area In Range("C25").Resize(LastRow). _
SpecialCells(xlCellTypeBlanks).Areas
If Area.Row + Area.Rows.Count > StopRow Then
Range(Area(1), Cells(StopRow, "C")).Value = Area(1).Offset(-1).Value
Exit For
Else
Area.Value = Area(1).Offset(-1).Value
End If
Next
End Sub

 

[Rick Rothstein]

That won't stop at **exactly** Row 1000 if Row 1000 (in Column C) is in the
middle of a group of blank cells.