If we want to update a column with the current date as and when any cell range is getting changed. This is used when we want to track the date modified of a cell range. Copy and Paste the following piece of code and it will be done automatically done.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
If Not Intersect(Target, Range("D8:D50")) Is Nothing Then
With Target(1, 0)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End Sub