Copy Preceding Single Cell Data Into Following Empty Cells In Same Column

I need a macro that will examine column A starting at A2 and working its way down copying the data in the first cell (A2) and then delete that row. If the next cells are empty (usually the next 5 cells) it should paste this copied value in each of the empty cells until it comes to the next cell with data in it. At this point it should copy this next value and delete the subsequent row and copy this value in each of the empty cells directly following (again, usually 5) until it finds the next cell that has data in it. At this point, again the whole process begins again repeating it self until it comes to the end where no more data is.

Here is an example of what I need done:

This sheet:

Sheet1

*
A
B
C
D

1
Item Number
Type
Type 2
Feature

[Code] ...

Should look like this:

Sheet1

*
A
B
C
D

1
Item Number
Type
Type 2
Feature

[Code] .....