Sub U_729()
    Sheets("Лист1").Rows("1:29").Rows.AutoFit
    Sheets("Лист2").Rows("1:20").Rows.AutoFit
End Sub

Option Explicit

Sub ChangeRowColHeight()
Dim rc As Range
Dim bRow As Boolean
bRow = (MsgBox("Изменять высоту строк?", vbQuestion + vbYesNo, "") = vbYes)
'bRow = True: для изменения высоты строк
'bRow = False: для изменения ширины столбцов
Sheets("Лист1").Select
Range("C16:F18").Select
Sheets("Лист2").Select
Range("C16:F18").Select
Application.ScreenUpdating = False
For Each rc In Selection
RowColHeightForContent rc, bRow
Next
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------------------------------------
Function RowColHeightForContent(rc As Range, Optional bRowHeight As Boolean = True)
'rc - ячейка, высоту строки или ширину столбца которой необходимо подобрать
'bRowHeight - True - если необходимо подобрать высоту строки
' False - если необходимо подобрать ширину столбца
Dim OldR_Height As Single, OldC_Widht As Single
Dim MergedR_Height As Single, MergedC_Widht As Single
Dim CurrCell As Range
Dim ih As Integer
Dim iw As Integer
Dim NewR_Height As Single, NewC_Widht As Single
Dim ActiveCellHeight As Single

If rc.MergeCells Then
With rc.MergeArea 'если ячейка объединена
'запоминаем кол-во столбцов
iw = .Columns(.Columns.Count).Column - rc.Column + 1
'запоминаем кол-во строк.
ih = .Rows(.Rows.Count).Row - rc.Row + 1
'Определяем высоту и ширину объединения ячеек
MergedR_Height = 0
For Each CurrCell In .Rows
MergedR_Height = CurrCell.RowHeight + MergedR_Height
Next
MergedC_Widht = 1
For Each CurrCell In .Columns
MergedC_Widht = CurrCell.ColumnWidth + MergedC_Widht
Next
'запоминаем высоту и ширину первой ячейки из объединенных
OldR_Height = .Cells(0, 0).RowHeight
OldC_Widht = .Cells(1, 1).ColumnWidth
'отмеяем объединение ячеек
.MergeCells = False
'назначаем новую высоту и ширину для первой ячейки
.Cells(0).RowHeight = MergedR_Height
.Cells(1, 1).EntireColumn.ColumnWidth = MergedC_Widht
'если необходимо изменить высоту строк
If bRowHeight Then
.EntireRow.AutoFit
NewR_Height = .Cells(1).RowHeight 'запоминаем высоту строки
.MergeCells = True
If OldR_Height < (NewR_Height / ih) Then
.RowHeight = NewR_Height / ih
Else
.RowHeight = OldR_Height
End If
'возвращаем ширину столбца первой ячейки
.Cells(1, 1).EntireColumn.ColumnWidth = OldC_Widht
Else 'если необходимо изменить ширину столбца
.EntireColumn.AutoFit
NewC_Widht = .Cells(1).EntireColumn.ColumnWidth 'запоминаем ширину столбца
.MergeCells = True
If OldC_Widht < (NewC_Widht / iw) Then
.ColumnWidth = NewC_Widht / iw
Else
.ColumnWidth = OldC_Widht
End If
'возвращаем высоту строки первой ячейки
.Cells(1, 1).RowHeight = OldR_Height
End If
End With
End If
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:o29")) Is Nothing Then
        Rows("1:29").Rows.AutoFit
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:o20")) Is Nothing Then
        Rows("1:20").Rows.AutoFit
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a16:o29")) Is Nothing Then
        Target.Select
        Call ChangeRowColHeight
    End If
End Sub

Sub ChangeRowColHeight()
    Dim rc As Range
    Application.ScreenUpdating = False
    For Each rc In Selection
        RowColHeightForContent rc
    Next
    Application.ScreenUpdating = True
End Sub