Merge Cells Automatically using VBA

[Sefty]

Hello

I'm looking for something to automatically merge text of the text in a cell. This can either be immediately or by using VBA and running a macro to do all of them at once. Example for data merge data football, and I'm looking to merge by using VBA to data volly, basketball, and tenis.
Thanks....

 

[Sefty]

Thanks.

Please remember XL2BB for sample data.

Try this

Sub MergeSports_v3()
  Dim rA As Range
 
  With Range("A2", Range("A" & Rows.Count).End(xlUp))
    .Value = Evaluate(Replace(Replace("if(#=%,"""",#)", "#", .Address), "%", .Offset(-1).Address))
    For Each rA In Range(.Address).SpecialCells(xlBlanks).Areas
      rA.Offset(-1).Resize(rA.Rows.Count + 1).MergeCells = True
    Next rA
  End With
End Sub

Wow code successful, thank you very much
The following is followed by the data, the code has been successful with the data as below

Matrix Pembangunan v29072022_17 (Recovered).xlsx
	A	B
1	Before	After
2	Football	Football
3	Football
4	Football
5	Football
6	Football
7	Swimming	Swimming
8	Swimming
9	Swimming
10	Swimming
11	Swimming
12	Swimming
13	Run	Run
14	Run
15	Run
16	Badminton	Badminton
17	Badminton
18	Badminton
19	Badminton
Sheet2

 

[Peter_SSs]

Wow code successful, thank you very much

You're welcome. Thanks for the follow-up.