copy one cell date to another cell of sheet

[riz4u]

dear all i want to copy on cell data into downward blank cell,if non blan cell came,it come its date and paste to all blanks cell and soo on


i 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="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]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Michael M]

Id this what you're after

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "E").End(xlUp).Row
For r = 1 To lr
    If Range("D" & r + 1).Value = "" Then
        Range("D" & r + 1).Value = Range("D" & r).Value
    End If
Next r
End Sub