If cell is blank, fill in with cell above

[BMR]

I have a list that was previously fully filled in, but I had to go through and insert many rows.

Now with those inserted rows I want to insert the same text that is in the cell above.

BQ5 - Anderson
BQ6 - Anderson
BQ7 - Anderson
BQ8 -
BQ9 - Anderson
BQ10 - Anderson
BQ11 -
BQ12 - Rochester
BQ13 - Rochester
BQ14 - Rochester
BQ15 -


In this example I would want BQ8 and BQ 11 to be filled in with the text above (Anderson) and I would want BQ15 to be filled in with Rochester.


Any formulas I could copy and paste into the blank cells to do this quick?

Or I could add another column next to it, fill those cells in using a formula, then replace BQ with the new data.

 

[VoG]

Select the range, press F5, click Special, tick Blanks, click OK.

Press =

Press Up arrow

Hold down CTRL and press Enter.

 

[jmthompson]

Untested, but try this (expand the range as needed)

Sub FillMe()
Dim c as Range

For each c in Range("BQ5:BQ15")
If c = "" Then c = c.Offset(-1,0)
Next c

End Sub

 

[BMR]

Select the range, press F5, click Special, tick Blanks, click OK.

Press =

Press Up arrow

Hold down CTRL and press Enter.

That was amazing... THANKS!