diff --git a/vba_code_common.bas b/vba_code_common.bas
index 127b60e..b862490 100644
--- a/vba_code_common.bas
+++ b/vba_code_common.bas
@@ -182,3 +182,13 @@ Sub ToggleAutoFilter(Optional ByVal filterRow As Long = 6)
         End If
     End If
 End Sub
+
+Sub AutoFitColumnWidth(Optional ByVal fitColumnStart As Long = 2, _
+                       Optional ByVal fitColumnEnd As Long = 9)
+    Dim ws As Worksheet
+    Set ws = ActiveSheet
+    
+    If fitColumnStart <= fitColumnEnd Then
+        ws.Columns(fitColumnStart & ":" & fitColumnEnd).AutoFit
+    End If
+End Sub