let
    Источник = Web.Page(Web.Contents("https://finance.yahoo.com/quotes/%5EGSPC/view/v1")),
    Data0 = Источник{0}[Data],
    #"Измененный тип" = Table.TransformColumnTypes(Data0,{{"Symbol", type text}, {"Last Price", type text}, {"Change", type text}, {"Chg %", type text}, {"Currency", type text}, {"Market Time", type text}, {"Volume", type text}, {"Shares", type text}, {"Avg Vol (3m)", type text}, {"Day Range", type text}, {"52-Wk Range", type text}, {"Day Chart", type text}, {"Market Cap", type text}, {"", type text}}),
    #"Last Price1" = #"Измененный тип"{0}[Last Price],
    #"Преобразовано в таблицу" = #table(1, {{#"Last Price1"}})
in
    #"Преобразовано в таблицу"

Target.NumberFormat = "m/d/yyyy"

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim v
  If Target.Cells.Count <> 1 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  v = Target.Value
  If VarType(v) <> vbDate Then
    Application.EnableEvents = False
    If v Like "???##" Or v Like "???-##" Then Target.Value = Left(v, Len(v) - 2) & "20" & Right(v, 2)
    If VarType(Target.Value) <> vbDate Then Target.Value = Empty
    Target.NumberFormat = "m/d/yyyy"
    Application.EnableEvents = True
  End If
End Sub

cell.NumberFormat = "m/d/yyyy"

"Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec"

"jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec|Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec"