For Each x In Rows("5:15")
            '        For Each x In Selection.Areas

Sub M174dom()
    Dim Start$, Finish$
    Start = Range("a1")
    Finish = Range("a2")
        For Each x In Rows(Start & ":" & Finish)
            x.EntireRow.AutoFit
        Next x
End Sub

Private Type Box: Hdn As Boolean: Hght As Single: End Type
Public Sub Podbor_visoti_A1A2()
Dim j&, q&, f&, l&, fr&, lr&, cWh!, rHh!, i() As Box, clwdth() As Single, x As Object
Application.ScreenUpdating = False
On Error Resume Next
With ActiveSheet
Dim Start$, Finish$
Start = Range("A1")
Finish = Range("A2")
For Each x In Rows(Start & ":" & Finish)
x.EntireRow.AutoFit
Set x = IIf(x.Address = .Rows.Address Or x.Address = .Columns(x.Column).Address, .UsedRange, _
.Range(.Cells(x.Row, .UsedRange.Column), .Cells(x.Rows.Count + x.Row - 1, .UsedRange.Columns.Count + .UsedRange.Column - 1)))
ReDim clwdth(x.Column To x.Column + x.Columns.Count - 1): fr = x.Row: lr = x.Rows.Count + x.Row - 1: ReDim i(fr To lr)
For j = x.Column To x.Column + x.Columns.Count - 1: clwdth(j) = .Columns(j).ColumnWidth: Next
For j = lr To fr Step -1
Set x = .Rows(j): i(j).Hdn = x.Hidden: x.AutoFit: i(j).Hght = x.RowHeight
For l = .UsedRange.Column To .UsedRange.Column + .UsedRange.Columns.Count - 1
If .Cells(j, l).MergeCells Then
With .Cells(j, l).MergeArea
If ActiveSheet.Cells(j, l).Address = .Item(1).Address Then
For q = .Column To .Columns.Count + .Column - 1: cWh = cWh + clwdth(q) + 0.647: Next
If cWh > 255 Then cWh = 0: GoTo L1
For q = .Row To .Row + .Rows.Count - 1
If Not i(q).Hdn Then rHh = rHh + i(q).Hght: If f = 0 Then f = q
Next
.UnMerge: .Item(1).ColumnWidth = cWh: x.AutoFit: rHh = x.RowHeight - (rHh - i(f).Hght)
If f <> j Then If i(f).Hght < rHh Then .Rows(f - j + 1).RowHeight = rHh
.Merge: .Item(1).ColumnWidth = clwdth(.Column)
If i(f).Hght < rHh Then i(f).Hght = rHh
cWh = 0: rHh = 0: f = 0
End If
End With
End If
L1:         Next
If i(j).Hght > 0 Then x.RowHeight = i(j).Hght
If i(j).Hdn Then x.Hidden = True
Next
Next
End With
End Sub