Extract the date to create a report date column from Source.Name column

= Table.AddColumn(Source, "Custom", each Text.Middle([Source.Name],47,10))

ReportDate = Table.AddColumn(Source, "Report Date", each Text.End(Text.Select([Source.Name],{"0".."9"} & {"-"}), 10))

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("pdI9CsJAEAbQqwxpdWVn1r/0gmCrViFFjFsEliSMKXJ8e2GE4bvAq17TVJdBc7/Q/ZZocy3Tqyv0GLIGpknfWek59iV3I2meJ11C5BDrIFHSbi2ftWq3fwjLEI9hIcmFWMreoRjEASeOOHHCiTNO1DDBESc8Rw3CU9QgPEENAt/J+E7GdzK+k/GdjO8UfKfgOwXfKb872y8=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Source.Name = _t]),
    // Select only numbers and dashes, then take the last 10 chars as the date.
    ReportDate = Table.AddColumn(Source, "Report Date", each Text.End(Text.Select([Source.Name],{"0".."9"} & {"-"}), 10))
in
    ReportDate

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("vdbLCsIwEIXhVxm6UjSSSby0S2lBEBTUumnpopcIhZhI7KKPrwt9ABHOKpvABwPzM2UZZX0w7UCXvabZzvqmtpT3JggmHzoT6Opaa2pHwTx8GIRkIROhpNIkaLI9Fu8n9femd6b7/CF/I12INDtR7To65OfpYrTPMarmv3Pqy0E0DdWW2FGusNway22wXIzlEijHErkHzFBNYUepsRy2KYxtCmObwtimcAzdA2xSlMRy2DNFYaOi/rhTqhc=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Source.Name = _t]),
    FirstPart = Table.AddColumn(Source, "FirstPart", each Text.Start([Source.Name], Text.PositionOf([Source.Name], "("))),
    ReportDate = Table.AddColumn(FirstPart, "Report Date", each Text.Start(Text.End(Text.Select([FirstPart],{"0".."9"} & {"-"}), 11), 10))
in
    ReportDate

Sub extractDate()
Dim rng As Range
Dim cll As Range
Dim rgx As Object

    Set rgx = CreateObject("VBScript.RegExp")
    With rgx
        .Pattern = "\d{1,2}\-\d{1,2}\-\d{4}"
        .Global = False
    End With

    Set rng = Selection
    For Each cll In rng.Cells
        cll.Offset(, 1).Value = rgx.Execute(cll.Value)(0)
    Next cll
End Sub

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    RX = (x,y)=>
        let 
            Source = Web.Page(
                     "<script>var x='"&x&"';var y=new RegExp('"&y&"','g');var b=x.match(y);document.write(b);</script>")
                     [Data]{0}[Children]{0}[Children]{1}[Text]{0}
        in 
            Source,
    GetDate = Table.AddColumn(Source, "Date", each RX([Source.Name],"[0-9]{2}([\-/ \.])[0-9]{2}[\-/ \.][0-9]{4}"))
in
    GetDate

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("vdbLCsIwEIXhVxm6UjSSSby0S2lBEBTUumnpopcIhZhI7KKPrwt9ABHOKpvABwPzM2UZZX0w7UCXvabZzvqmtpT3JggmHzoT6Opaa2pHwTx8GIRkIROhpNIkaLI9Fu8n9femd6b7/CF/I12INDtR7To65OfpYrTPMarmv3Pqy0E0DdWW2FGusNway22wXIzlEijHErkHzFBNYUepsRy2KYxtCmObwtimcAzdA2xSlMRy2DNFYaOi/rhTqhc=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Source.Name = _t]),
    Python_Script = Python.Execute("dataset['Date'] = dataset['Source.Name'].str.extract(pat='([0-9]{2}-[0-9]{2}-[0-9]{4})')",[dataset=Source]),
    Expand = Table.ExpandTableColumn(Python_Script, "Value", {"Source.Name", "Date"}, {"Source.Name", "Date"})
in
    Expand