Вставка текущей даты - VBA

Формулировка задачи:

Добрый день. Хотела бы уточнить, может у кого-нить есть макрос,который позволяет вставлять текущую дату с учетом ширины столбца (автободпор ширины), то есть макрос аналогичный сочетанию клавиш CTRL+; На данный момент есть макрос,который вставляет дату,но без подбора ширины.

Sub макрос2()
' Сочетание клавиш: Ctrl+d
ActiveCell.Value = Format(Now, "dd.mm.yyyy")
End Sub

Решение задачи: «Вставка текущей даты»

textual
                            Листинг программы 
                        

                            Sub макрос2()
' Сочетание клавиш: Ctrl+d
ActiveCell.Value = Format(Now, "dd.mm.yyyy")
ActiveCell.EntireColumn.AutoFit
End Sub
                        