Copying down data into blank lines

[christinead]

Hi all you wonderful Excel buffs...I need some help!
I have a 30000 line spreadsheet which has a massive amount of data in it.

In the rows there is information which I need to copy down to the blank rows directly below, for example every third row might have data in it which I want to copy to the blank cells below.
I am after an easy way of copying down the data instead of manually having to do it, as there is 30000 lines!
Can someone out there assist me.
If you dont understand my rambling above, I have done a little example above

Cell
A1 Dog
A2 (how do i copy dog into this cell)
A3 (how do i copy dog into this cell_
A4 Cat
A5 (how do i copy cat into this cell)
A6 (how do i copy cat into this cell)

Yes, I know about copying and pasting, but I want to do it all in one go!!!
Thanks

 

[Misca]

Maybe not the best way to work a cell at a time but should work:

Sub FillEmptyCells()

Dim c As Range
Dim Rng As Range

Application.ScreenUpdating = False

Set Rng = Selection  'Define the range you want to work on

For Each c In Rng.SpecialCells(xlCellTypeBlanks)
'Writing just the values:
'    With c
'        .Value = .Offset(-1, 0).Value
'    End With
    
'Or if you prefer copying:
    With c.Offset(-1, 0)
        .Copy c
    End With
Next c

End Sub

 

[christinead]

Thank you, will give it a go!!!
Anyone else got tips too?
Am trying to do it now )

 

[mirabeau]

Maybe this code?

Sub fillblanks()
Dim e As Range
For Each e In ActiveSheet.UsedRange.Rows
If Application.CountA(e) = 0 Then e.Value = e(0).Value
Next e
End Sub

 

[christinead]

thanks so much guys, I am off to a work meeting now, but will eb back bright and early Monday morning trialling it all!!!!
will undoubtedly have questions then...

cheers