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

pillow	cutt
	stitch
	pack
quilt cover	cutt
	stitc
	pack
curtain

<tbody>
</tbody>

 

[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