Tx = "Заместитель директора департамента сопровождения АИИСКУЭ"

Option Explicit
' этот Range будем изменять
Function rangeName() As String
    rangeName = "M9:R9"
End Function

' обработка кнопки
Private Sub CommandButton1_Click()
    If Range(rangeName()).MergeCells = False Then
        Range(rangeName()).EntireRow.autoFIT
    Else
        Range(rangeName()).RowHeight = MyRowHeight(Range(rangeName()))
    End If
End Sub

' Событие изменения ячейки
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Target.Row = Range(rangeName()).Row And Target.Column = Range(rangeName()).Column) Then
        Exit Sub
    End If

    If Range(rangeName()).MergeCells = False Then
        Range(rangeName()).EntireRow.autoFIT
    Else
        Range(rangeName()).RowHeight = MyRowHeight(Range(rangeName()))
    End If
End Sub

' подбор высоты объединенной ячейки
Function MyRowHeight(ByVal MyRange As Range) As Integer

    Dim MyColumnWidth
    Dim MySheets As Worksheet
    Dim cln

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set MySheets = Sheets.Add ' новый лист
    With MySheets
        For Each cln In MyRange.Columns
            MyColumnWidth = MyColumnWidth + cln.Width * 20 ' Суммарная ширина
        Next cln

        If MyColumnWidth > 180 Then
            MyColumnWidth = Round((MyColumnWidth - 75) / 105, 2)
        Else
            MyColumnWidth = Round((MyColumnWidth - 0) / 180, 2)
        End If

        .Cells(1, 1).ColumnWidth = MyColumnWidth ' выставляем ширину расчетной ячейки

        .Cells(1, 1).Value = MyRange.Value
        .Cells(1, 1).Font.Size = MyRange.Font.Size
        .Cells(1, 1).Font.Name = MyRange.Font.Name
        .Cells(1, 1).Font.Bold = MyRange.Font.Bold
        .Cells(1, 1).Font.FontStyle = MyRange.Font.FontStyle
        .Cells(1, 1).Font.Italic = MyRange.Font.Italic
        .Cells(1, 1).WrapText = True

        MyRowHeight = .Rows(1).RowHeight / MyRange.Rows.Count ' высота всех строк внутри Range одинаковая
        .Delete
    End With

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Function