Sub Macro#()
    Range("C8:H8").Select
    Selection.Merge
    Selection.WrapText = True
    Columns("C:H").Select
    'Work out the total width then divide by 6
    Selection.ColumnWidth = x
    'Not sure the autofit works
    Columns("C:H").EntireColumn.AutoFit
    
    Range("C108:H108").Select
    Selection.Merge
    Selection.WrapText = True

End Sub