Date stamping a cell

Do this

Right click sheet name > select view code > paste in the below code > Close VB editor

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
        With Target
            If .Count > 1 Then Exit Sub
            If Not Intersect(Range("D2"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, -1).ClearContents
                Else
                    With .Offset(0, -1)
                        .NumberFormat = "dd mmm yyyy hh:mm:ss"
                        .Value = Now
                    End With
                End If
                Application.EnableEvents = True
            End If
        End With
    End Sub

VBA Noob

Widen the column

VBA Noob

Change range on this line

If Not Intersect(Range("D2"), .Cells) Is Nothing Then

to either

If Not Intersect(Range("D1:D65536"), .Cells) Is Nothing Then

or

 If Not Intersect(Columns(4), .Cells) Is Nothing Then

VBA Noob

Glad it helped

VBA Noob