VBA fill blank cells with above value

[ShaanB]

Hi all, I'm reasonably new to VBA and learn by doing.... I'm looking for a macro that will fill blank cells to the next cell with data in it.
(I had images but the links kept appearing as broken for some reason, though they work fine in other forums)
[TABLE="width: 500"]
<tbody>[TR]
[TD]Style Name[/TD]
[TD]Colour
[/TD]
[TD]Size
[/TD]
[/TR]
[TR]
[TD]Basic Tee[/TD]
[TD]Black[/TD]
[TD]S[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]M[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]L[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]XL[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Red[/TD]
[TD]M[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]L[/TD]
[/TR]
[TR]
[TD]Printed Tee[/TD]
[TD]Blue[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]8[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]etc[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]



I'm trying to fill the blank cells with the so I end up with Basic Tee Black S, Basic Tee Black, M, etc etc...

On the offchance they work for some and hoping it's just my network, here's the images:

Any help would be greatly appreciated!
Shaan

 

[MARK858]

As an example for column A, one way (although this is easy enough to do without a macro)...

Sub fillme()
With Range("A:A")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

 

[Peter_SSs]

I would do both columns at once & only target the required rows.

Sub Fill_Blanks()
  With Range("A2:B" & Range("C" & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
End Sub

 

[ShaanB]

Thank you this is great. I managed to tweak it to cover my sheet (I have more columns than just style, colour and size).
I do realise it's simple enough to do without the macro, but I'm building this for some colleagues who are not Excel users and it's much simpler for me to say "click this button" than try to teach them keystrokes!

Thanks!

 

[Peter_SSs]

Good news! Thanks for the follow-up.