Eduard Caballero respondió:
Prueba esto Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("D2:D10000")) Is Nothing Then ActiveCell.Offset(-1, -1).Value = Date End If End Sub Debes colocarlo en la hoja donde quieres que haga eso