[Hogfather]

Maksimus, Чтобы работало только в одной колонке достаточно добавить следующий код (выделено жирным)

Option Explicit
' Обратите внимание! Это функция конкретного листа, она должна быть там, а не в модуле
' Откройте VBA проект, выберите лист и по правой кнопке мыши Viev Code
' В открывшееся окно скопируйте программу. Работает по двойному нажатию
'
' Копирайт (ц) 2013 Hogfather. Олл райтс резервед
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo ErrorEvent
' Только одна ячейка
If Target.Cells.Count > 1 Then
    Exit Sub
End If


' Только для пятой колонки. В остальных случаях ничего не делаем
If Target.Column <> 5 Then
    Exit Sub
End If



' Чтобы избежать зацикливания 
   Application.EnableEvents = False
' Если ячейка пустая -- ставим дату
    If Target.Offset(0, 0).Value = "" Or IsNull(Target.Offset(0, 0).Value) Then
        Target.Offset(0, 0).Value = Date
    End If
ExitNormally:
' Возвращаем всё взад
    Application.EnableEvents = True
    Exit Sub
ErrorEvent:
    MsgBox Err.Description
    Resume ExitNormally
End Sub