Paste cell above if blank

[carlosjcabral]

New at this, not sure what I did wrong. All I want it to do is look at the cell and if it is blank then paste the value in the cell above it. Then reapeat this until the end of the page.


dim rz As Long, z As Long

rz = Cells(Rows.Count, 4).End(xlUp).Row
For z = rz To 1 Step -1

If Cells(z, 2).Value = "" Then Value = Cells(z - 1, 2).Value

Next z

 

[Peter_SSs]

I don't think your sample data is displaying correctly. My signature block below contains 3 methods for posting small screen shots. Test them in the Test Here forum. That way, if something goes wrong, you won’t be messing up a main forum.

Did you try my code with the "D"s changed to "B"s?

 

[carlosjcabral]

That worked. thanks for your help.