Greetings,

I am a novice at programming and have been reading the FAQs trying to solve a problem I have.

I need to fill in a column's various "blank cell" of several hundred rows in the following manner:

1. Select cell of column with text (is the name of individual working project)

2. Copy cell and paste in all empty cells below text of that column.

3. Upon reaching next cell in column with text, stop pasting, select the cell with new text, repeat steps 1-3.

I figured I needed a fail safe like: If blank cells = >15, end sub. Otherwise it would keep running.

I have started with Excel "record a Macro" function and got the below

Sub FILLinBLANKS()
'
' FILLinBLANKS Macro
' Macro recorded 6/10/2005
'
' Keyboard Shortcut: Ctrl+j
'
Cell.Select
Selection.Copy
Range("B13").Select
ActiveSheet.Paste
Range("B14").Select
ActiveSheet.Paste
Range("B15").Select
ActiveSheet.Paste
End Sub

but of course it is putting stuff in B13:B15. and not doing what I need it do with looping, copying text cell, filling in blank cells of the column below the text cell, then selecting the next text cell in column after the blanks are filled, and repeating process.

thanks for any replies,

bluestar
"ben"