Required merging with macro button!

[Kamran01]

Hi Genius,

I need Little help regarding Merging cells with a button..
I am creating a Gantt Chart using excel formulas..

I want when i press a button, it Show me merge data according to below range.

1) B2:G2
2) B3:D3 & E3:I3
3) B4:F4


[TABLE="class: grid, width: 100, align: left"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[TD]F[/TD]
[TD]G[/TD]
[TD]H[/TD]
[TD]I[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]LINES #[/TD]
[TD]2/10[/TD]
[TD]3/10[/TD]
[TD]4/10[/TD]
[TD]5/10[/TD]
[TD]6/10[/TD]
[TD]7/10[/TD]
[TD]8/10[/TD]
[TD]9/10[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]HS-01[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C&A | CHINO DOBBY 1| 5900 | 23 | 23/JAN | 0[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]HS-02[/TD]
[TD][/TD]
[TD][/TD]
[TD]C&A | BASIC| 8000 | 23 | 23/JAN | -2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C&A | JACKET | 10000 | 23 | 23/JAN | -11[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]HS-03[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C&A | ROMPER | 9800 | 23 | 23/JAN | 2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Kamran01]

Bump

 

[Logit]

.
Is this what you are seeking ?

Sub delete_empty_cells_shift_left()
    Range("A1:I5").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlToLeft
End Sub

 

[Kamran01]

Hi Logit,

I mean i have not to delete blank cells but have to merge cells from next to filled column till filled column.
This is not working for me like my problem is..

Thanks,
Kamran Noor

 

[Logit]

.
Post and AFTER image so we know what you are seeking.

How do you want the cells to be / look after the merge ?