Option Explicit

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[J1].Sort [J1], xlDescending, Header:=xlYes
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("P12:P50000")) Is Nothing Then  'если изменененная ячейка попадает в диапазон P12:P50000
            With cell.Offset(0, 6)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца P, чтобы дата умещалась в ячейке
            End With
       End If
End Sub