copy/paste help required

[riz4u]

Dear all i need copy paste help regarding my sheet i want to copy one cell data to all blanks below it,if non blank cell came,its copy its data and paste downwaord to blankt cell in all rows. i want hi write down into below cell and then next bye into below 2 cells and like that in row

e.g
[TABLE="width: 500"]
<tbody>[TR]
[TD]1
[/TD]
[TD]Hi
[/TD]
[TD]100
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD][/TD]
[TD]100
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD][/TD]
[TD]100
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD]bye
[/TD]
[TD]100
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD][/TD]
[TD]100
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6
[/TD]
[TD][/TD]
[TD]100
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[VoG]

Select the data including the blanks

Press F5

Click Special

Tick Blanks, click OK

Press =

Press Up Arrow

Hold down CTRL and press Enter.

 

[riz4u]

it time taking i have hundred on lines

have data(pillow) in column D,i want it paste in blank cell,then slect other non-blank cell and paste data to downword blank cell,and soooo on
D E
[TABLE="class: cms_table, width: 20"]
<tbody>[TR]
[TD]pillow[/TD]
[TD]cutt[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]stitch[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]pack[/TD]
[/TR]
[TR]
[TD]quilt cover[/TD]
[TD]cutt[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]stitc[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]pack[/TD]
[/TR]
[TR]
[TD]curtain[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[riz4u]

t time taking i have hundred on lines

have data(pillow) in column D,i want it paste in blank cell,then slect other non-blank cell and paste data to downword blank cell,and soooo on
D E
[TABLE="class: cms_table_cms_table, width: 20"]
<tbody>[TR]
[TD]pillow[/TD]
[TD]cutt[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]stitch[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]pack[/TD]
[/TR]
[TR]
[TD]quilt cover[/TD]
[TD]cutt[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]stitc[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]pack[/TD]
[/TR]
[TR]
[TD]curtain[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[VoG]

Try this macro

Sub AFill()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
With Range("D1:D" & LR)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub