Merged Cells and Column Width

Hi

I created a workbook

C2 and D2 are merged

D3 downwards and c3 downwards are data.

This code snippet sets the width of columns C ad D using the cells from C3 and D3 downwards.

However if the text is larger than the sum of C3 and D3 then those columns are made wider to match C/D 3.

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("E3:F17").Select
    Selection.Columns.AutoFit
    EWidth = Range("E3").ColumnWidth
    FWidth = Range("F3").ColumnWidth

    Range("E2:F2").Select
    Selection.UnMerge
    Range("E2").Columns.AutoFit

    MWidth = Range("E2").ColumnWidth
    Range("E2:F2").Select
     With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    
    If MWidth > EWidth + FWidth Then
    Range("E3").ColumnWidth = EWidth * MWidth / (EWidth + FWidth)
    Range("F3").ColumnWidth = FWidth * MWidth / (EWidth + FWidth)
    End If
    
    EWidth = Range("E3").ColumnWidth
    FWidth = Range("F3").ColumnWidth

End Sub