require a vba coding to merge cells when typing please

hi,

if anybody can assist ill be grateful, I have a range of cells that I want to merge providing that cell have texts entered into them. exactly how a text box would auto fit to the text but same with cells in range. an expanding box but with the range of cells

the current code I had is not executing on selection of the cell.

please do help and advise

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("E95")) Is Nothing Then
Sub Range_Merge_Across_False()
    Range("E95:L104").Merge
End Sub