VBA Code to copy down in blank cells and repeat until no data

[Trebor200]

I appreciate any help you can offer on this,

In column A i have a product code, i want to copy this down into the blank cells below until i hit the next product number and repeat until no more product numbers.

The blanks spaces in between can vary and the product numbers can vary also.

Thanks in advance.

I have added Excel file to drop box.
VBA Test is the raw data and VBA Need is what i want to accomplish.

https://www.dropbox.com/s/xldi11bd2vfxu08/VBA%20Test.xlsx?dl=0

 

[mikerickson]

How about

With Range("A:A").Resize(Range("D65536").End(xlup).Row, 1)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "R[-1]C"
    .Value = .Value
End With

 

[Trebor200]

thanks for the reply, that added R[-1]C to each of the blank cells and not the product number?

 

[mikerickson]

I forgot the equal sign

.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "[COLOR="#FF0000"][B]= [/B][/COLOR]R[-1]C"

 

[Trebor200]

superb, perfect thankyou