function onEdit(e) {
    if(!e || e.range.getSheet().getName() !== "Лист1")
    return;
    var sheet = e.source.getActiveSheet();
    var idCol = e.range.getColumn();
    var idRow = e.range.getRow();
    var date = new Date();
    var date = Utilities.formatDate(date, 'Europe/Kiev', 'dd-MM-yyyy\' \'HH:mm:ss\' \'');
    if ( idCol == 5 ) {    
    sheet.getRange(idRow, idCol - 1).setValue(date.toString());
    }
};

function onEdit(e) {
    var sheet = e.source.getActiveSheet();
    var idCol = e.range.getColumn();
    var idRow = e.range.getRow();
    var date = new Date();
    var date = Utilities.formatDate(date, 'Europe/Kiev', 'dd-MM-yyyy\' \'HH:mm:ss\' \'');
    if ( idCol == 5 ) {     
    sheet.getRange(idRow, idCol - 1).setValue(date.toString());
    }
};

If Not Intersect(cell, Range("F2:F500")) Is Nothing Then
          
  If IsEmpty(Target) Then
    cell.Offset(0, -1) = Empty
  Else
    With cell.Offset(0, -1) 
      .Value = Now
      .EntireColumn.AutoFit
    End With
  End If

Private Sub Worksheet_Change(ByVal Target As Range)
        For Each cell In Target
         If Not Intersect(cell, Range("B2:B500")) Is Nothing Then
            Dim s As String, sHyp As String
            s = Target.Value
            Select Case Left(s, 3)
            Case "590", "100"
                sHyp = "https://novaposhta.ua/tracking/?cargo_number=" & s & "&yt0="
            Case "011"
                sHyp = "http://www.intime.ua/ttn/?ttn=" & s
            End Select
            Target.Parent.Hyperlinks.Add Anchor:=Target, Address:=sHyp, TextToDisplay:=sHyp
    
       End If
    Next cell
End Sub