Fill in the blanks

Hi
Im new to VB and need to accomplish the following.
My spread sheet (a .txt file that I am importing) has 6000+ lines. If any
of the data from one line to the next is duplicated the cell is blank
Example:

cat feline black female
white male
tabby

So across the used range. if the cell is blank I would like to copy in the
same entry as the cell above it
to give:

cat feline black female
cat feline white male
cat feline tabby male

Thanks for all replies

THanks Jim
Sometimes one cant see the forest for the trees. Ive used visible cells for
a while now and had not seen the blanks options. Mission accomplished!
Thanks again

"Jim Thomlinson" wrote:

> Here is the easiest way that I know of in straight excel (no vba). You could
> record a macro to do this if you want. In the first blank cell beneath a
> populated cell create a formula such as =A1 assuming you are in cell a 2.
> Copy this formula. Select the range 6000 plus rows by how ever many columns.
> Hit F5 or Ctrl+G. Select Special. Select Blanks. This will select all of the
> blank cell. Now just paste. You may want to copy and paste special values the
> entire selection.
>
> HTH
>
> "BOB" wrote:
>
> > Hi
> > Im new to VB and need to accomplish the following.
> > My spread sheet (a .txt file that I am importing) has 6000+ lines. If any
> > of the data from one line to the next is duplicated the cell is blank
> > Example:
> >
> > cat feline black female
> > white male
> > tabby
> >
> > So across the used range. if the cell is blank I would like to copy in the
> > same entry as the cell above it
> > to give:
> >
> > cat feline black female
> > cat feline white male
> > cat feline tabby male
> >
> > Thanks for all replies
> >
> >
> >
> >