Sub Release_Combine_Text()
    Dim rng As Range, r As Range, txt As String, Temp As Long
    With Sheets("Release")
        Set rng = Range("A117", Range("A" & Rows.Count).End(xlUp))
    End With
    For Each r In rng
        txt = txt & r.Text
    Next
    With rng.Parent.Range("a11")
        .Value = txt
        For Each r In rng
            With .Characters(Temp + 1, Len(r.Text)).Font
                .FontStyle = r.Font.FontStyle
                .Size = r.Font.Size
                .Name = r.Font.Name
                .Color = r.Font.Color
                .Strikethrough = r.Font.Strikethrough
                .Subscript = r.Font.Subscript
                .Superscript = r.Font.Superscript
                .Underline = r.Font.Underline
            End With
            Temp = Temp + Len(r.Text)
        Next
        
        '*************
        '**** NEW ****
        .Rows.AutoFit
        '*************
        
    End With
End Sub