Fill blank rows with cell above...

[JRenn]

I'm trying to create a macro that will, for a selected range (5000 rows), fill a cell with the contents of the cell above if the cell to the right is not empty/blank.

Your assistance appreciated.

Regards

 

[FracinDean]

What code do you have so far?

 

[FracinDean]

Name the range that you want to test the cells beside it. Example, cells A1:A5000 are named myRange, and some of the cells B1:B5000 are blank. The following code worked for me when I tested it:

Dim lastThing As Variant
Range("myRange").Select
lastThing = ""
For Each thing In Selection
       If Cells(thing.Row, thing.Column+1).Value <> "" Then thing.Value = lastThing
       lastThing = thing.Value
Next

 

[JRenn]

Thanks so much FrancisDean. Very neat and works perfectly!!