In Excel 2003, I am trying to fill a group of disparate series down a single column (i.e.)...

Cell A1 = apple
Cell A2= ""
Cell A3= ""
Cell A4= Banana
Cell A5= ""
Cell A6= ""
Cell A7= ""
Cell A8= ""
Cell A9= Lemon
Cell A10= ""
Cell A11= ""
Cell A12= Grape
(etc)

So that the outcome is:

Cell A1= apple
Cell A2= apple
Cell A3= apple
Cell A4= Banana
Cell A5= Banana
Cell A6= Banana
Cell A7= Banana
Cell A8= Banana
Cell A9= Lemon
Cell A10= Lemon
Cell A11= Lemon
Cell A12= Grape
(etc)

Thanks for any help on this!

Hi

Here is a hint

Sub Fill_The_Blanks()
Dim sText As String
Dim sNonBlankText As String
Dim i
For i = 1 To 1000
sText = Trim(Cells(i, 1).Value)
If Len(sText) = 0 Then
Cells(i, 1).Value = sNonBlankText
Else
sNonBlankText = sText
End If
Next i
End Sub


Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Yes , that works fine! Thank You! I've been struggling with it for a day now.