VBA Code to Fill Blank Cells from Bottom to Top in a Dynamic Range

[LtCmdrData]

Hello,

I have a column with numbers and blank cells (column A). The numbers are based off a subtotal row so I need to start at the bottom and work up. I want to repeat the number in the blank cells until it encounters the next subtotal number. The number of blanks will vary and the total number of rows will vary. This is just one part of a bigger macro. I know how to use Go To Special Blanks to select the blank cells but where I have trouble is writing the code to find the last row, move up one, set it equal to the cell beneath and then Ctrl + Enter to enter the formula into all the blanks. This is what I start with:

A B

	200022
	200002
L438870	L438870
	200253
	200116
	200123
	199538
L438871	L438871
	200125
	200052
	199722
L438873	L438873

<colgroup><col><col></colgroup><tbody>
</tbody>

This is what I want it to look like:

A B

L438870	200022
L438870	200002
L438870	L438870
L438871	200253
L438871	200116
L438871	200123
L438871	199538
L438871	L438871
L438873	200125
L438873	200052
L438873	199722
L438873	L438873

<colgroup><col><col></colgroup><tbody>
</tbody>

If it make any difference there will always be an "L" in front of the number I am copying. Can anyone please help me with this situation? Thanks!

 

[Fluff]

How about

Sub LtCmdrData()
With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .SpecialCells(xlBlanks).FormulaR1C1 = "=r[1]c"
   .Value = .Value
End With
End Sub

 

[LtCmdrData]

This truly works like magic; so simple yet so effective! Thank you.

 

[Fluff]

You're welcome & thanks for the feedback