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:

[TABLE="width: 500, align: left"]
<tbody>[TR]
[TD]Column D[/TD]
[TD]Column E[/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ745433[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]19180597/1[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ746529[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ745000[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]19178853/1[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ750759[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
to [TABLE="width: 500, align: right"]
<tbody>[TR]
[TD]Column D[/TD]
[TD]Column E[/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ745433[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]19180597/1[/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ746529[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]ZJ746529[/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ745000[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]9178853/1[/TD]
[/TR]
[TR]
[TD][TABLE="width: 146"]
<tbody>[TR]
[TD]ZJ750759[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]ZJ750759[/TD]
[/TR]
</tbody>[/TABLE]











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.