Very Easy
Sub fillin()
LastRow = Range("C" & Rows.Count).End(xlUp).Row
OldData = Range("C25")
For RowCount = 26 To LastRow
If Range("C" & RowCount) = "" Then
Range("C" & RowCount) = OldData
Else
OldData = Range("C" & RowCount)
End If
Next RowCount
End Sub
--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=179831
Microsoft Office Help