I have written a code to automatically update the width of columns based on what is in a particular range of cells. See the code below.
Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Range("A10:DC49").Columns.AutoFit
For i = 1 To...