VBA for edit text and remove blank rows

[oguztuna]

I m finding out VBA for merging text with a space from below cells which has blank at the next column , and then remove the row that has blanks, as shown below.

First Form

[TABLE="width: 753"]
<colgroup><col span="2"><col><col><col><col><col></colgroup><tbody>[TR]
[TD="align: right"]1[/TD]
[TD] [/TD]
[TD]1.500WT - PIPE SSAWL API 5L BE[/TD]
[TD] [/TD]
[TD="align: right"]30[/TD]
[TD]PPXC209620[/TD]
[TD] 7.0M[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD]API-5L-X65M PSL-2 LTD[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD] [/TD]
[TD]SCH80 - PIPE SSAWL API 5L BE API-5L-X65M[/TD]
[TD] [/TD]
[TD="align: right"]24[/TD]
[TD]PPXC209619[/TD]
[TD] 1.2M[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD]PSL-2 LTD[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD] [/TD]
[TD]SCH80 - PIPE SSAWL API 5L BE API-5L-X65M[/TD]
[TD] [/TD]
[TD="align: right"]18[/TD]
[TD]PPXC209617[/TD]
[TD] 2.3M[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD]PSL-2 LTD[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD] [/TD]
[TD]1.500WT - ELL 90 LR WLD MSSSP-75 (PSO)[/TD]
[TD] [/TD]
[TD="align: right"]30[/TD]
[TD]PCHB11545[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD]BE A860 MSS SP75-WPHY-65[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD] [/TD]
[TD]1.500WT - FLG WN MSS-SP-44 BE/RF CL 900[/TD]
[TD] [/TD]
[TD="align: right"]30[/TD]
[TD]PFWA265709[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD]A707-L5 CL4[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
</tbody>[/TABLE]

After Edit

[TABLE="width: 910"]
<colgroup><col span="2"><col><col><col><col><col></colgroup><tbody>[TR]
[TD="align: right"]1[/TD]
[TD] [/TD]
[TD]1.500WT - PIPE SSAWL API 5L BE API-5L-X65M PSL-2 LTD[/TD]
[TD] [/TD]
[TD="align: right"]30[/TD]
[TD]PPXC209620[/TD]
[TD] 7.0M[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD] [/TD]
[TD]SCH80 - PIPE SSAWL API 5L BE API-5L-X65M PSL-2 LTD[/TD]
[TD] [/TD]
[TD="align: right"]24[/TD]
[TD]PPXC209619[/TD]
[TD] 1.2M[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD] [/TD]
[TD]SCH80 - PIPE SSAWL API 5L BE API-5L-X65M PSL-2 LTD[/TD]
[TD] [/TD]
[TD="align: right"]18[/TD]
[TD]PPXC209617[/TD]
[TD] 2.3M[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD] [/TD]
[TD]1.500WT - ELL 90 LR WLD MSSSP-75 (PSO) BE A860 MSS SP75-WPHY-65[/TD]
[TD] [/TD]
[TD="align: right"]30[/TD]
[TD]PCHB11545[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD] [/TD]
[TD]1.500WT - FLG WN MSS-SP-44 BE/RF CL 900 A707-L5 CL4[/TD]
[TD] [/TD]
[TD="align: right"]30[/TD]
[TD]PFWA265709[/TD]
[TD="align: right"]1[/TD]
[/TR]
</tbody>[/TABLE]

Many Thanks

 

[Peter_SSs]

Duplicate to [url]http://www.mrexcel.com/forum/excel-questions/913125-visual-basic-applications-question-text-isometric-drawings.html[/URL]

Please do not post the same question multiple times. Questions of a duplicate nature will be locked or deleted, per #12 of the Forum Rules.

Any bumps, clarifications, or follow-ups should be posted to the linked thread.