Loop through all cells in worksheet a, copy and consolidate to b minus blanks

[RobGEOD]

I have data in columns A:AN rows 1-50. I need to loop through all even number columns and if the cell has data copy it and the cell to the left to another worksheet in order to consolidate. Below is an example:

Data
[TABLE="width: 500"]
<tbody>[TR]
[TD]1[/TD]
[TD]aaaaaaaa[/TD]
[TD]11[/TD]
[TD]bbbbbb[/TD]
[TD]21[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]aaaaaaaa[/TD]
[TD]12[/TD]
[TD][/TD]
[TD]22[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD]13[/TD]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]bbbbbb[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]23[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]aaaaaaaa[/TD]
[TD]14[/TD]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]bbbbbb[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]24[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]aaaaaaaa[/TD]
[TD]15[/TD]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]bbbbbb[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]25[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]aaaaaaaa[/TD]
[TD]16[/TD]
[TD][/TD]
[TD]26[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]aaaaaaaa[/TD]
[TD]17[/TD]
[TD][/TD]
[TD]27[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]aaaaaaaa[/TD]
[TD]18[/TD]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]bbbbbb[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]28[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]aaaaaaaa[/TD]
[TD]19[/TD]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]bbbbbb[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]29[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD][/TD]
[TD]20[/TD]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]bbbbbb[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]30[/TD]
[TD]cccccc[/TD]
[/TR]
</tbody>[/TABLE]


Desired Output
[TABLE="width: 500"]
<tbody>[TR]
[TD]1[/TD]
[TD]aaaaaaaa[/TD]
[TD]14[/TD]
[TD]bbbbbb[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]aaaaaaaa[/TD]
[TD]15[/TD]
[TD]bbbbbb[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]aaaaaaaa[/TD]
[TD]18[/TD]
[TD]bbbbbb[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]aaaaaaaa[/TD]
[TD]19[/TD]
[TD]bbbbbb[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]aaaaaaaa[/TD]
[TD]20[/TD]
[TD]bbbbbb[/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]aaaaaaaa[/TD]
[TD]21[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]aaaaaaaa[/TD]
[TD]23[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]aaaaaaaa[/TD]
[TD]24[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]11[/TD]
[TD]bbbbbb[/TD]
[TD]25[/TD]
[TD]cccccc[/TD]
[/TR]
[TR]
[TD]13[/TD]
[TD]bbbbbb[/TD]
[TD]30[/TD]
[TD]cccccc[/TD]
[/TR]
</tbody>[/TABLE]

 

[My Aswer Is This]

This post is a duplicate on this same forum:
https://www.mrexcel.com/forum/excel...y-consolidate-b-minus-blanks.html#post4951683