Fill in empty cells with adjacent cell value

[dystophic]

Good afternoon,

I was wondering if someone can help -

I have a column E containing cells of different values; some of those cells are blank. I also have an adjacent column D that doesn't have any blank values.

What I basically trying to do is use VBA fill in the empty cells in column E with the value of their adjacent column D cells. As below:

Column D	Column E
ZJ745433 <tbody> </tbody>	19180597/1 <tbody> </tbody>
ZJ746529 <tbody> </tbody>
ZJ745000 <tbody> </tbody>	19178853/1 <tbody> </tbody>
ZJ750759 <tbody> </tbody>

<tbody>
</tbody>

to

Column D	Column E
ZJ745433 <tbody> </tbody>	19180597/1
ZJ746529 <tbody> </tbody>	ZJ746529
ZJ745000 <tbody> </tbody>	9178853/1
ZJ750759 <tbody> </tbody>	ZJ750759

<tbody>
</tbody>

Thank-you.

 

[Joe4]

You are welcome, Frank!

I must admit, I probably use Loops for than I should myself too! They tend to be an old standby for me.