Excel VBA: Run-time error: A query with the name 'Table 0' already exists

What's wrong with this Excel recorded macro? It returns this error when I try re-running it:

Run-time error '-2147024809 (80070057)':
A query with the name 'Table 0' already exists.

It successfully loads an HTML table from https://www.timeanddate.com/holidays/us/ when I record it.

Code highlighted in yellow by the debugging VBA editor

    ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
            "let" & Chr(13) & "" & Chr(10) & "    Source = Web.Page(Web.Contents(""https://www.timeanddate.com/holidays/us/""))," & Chr(13) & "" & Chr(10) & "    Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Data0,{{""Header"", type text}, {""Date"", type date}, {""Weekday"", type text}, {""Holiday Name"", type text}, {""Holiday Type"", type text}, {""Where It is Observed"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""

Full VBA script

    Sub readTable()
    ' readTable Macro

        ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
            "let" & Chr(13) & "" & Chr(10) & "    Source = Web.Page(Web.Contents(""https://www.timeanddate.com/holidays/us/""))," & Chr(13) & "" & Chr(10) & "    Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Data0,{{""Header"", type text}, {""Date"", type date}, {""Weekday"", type text}, {""Holiday Name"", type text}, {""Holiday Type"", type text}, {""Where It is Observed"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
        ActiveWorkbook.Worksheets.Add
        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
            "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table 0"";Extended Properties=""""" _
            , Destination:=Range("$A$1")).QueryTable
            .CommandType = xlCmdSql
            .CommandText = Array("SELECT * FROM [Table 0]")
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .ListObject.DisplayName = "Table_0"
            .Refresh BackgroundQuery:=False
        End With
    End Sub

Macro Steps

  1. Selected the Data ribbon
  2. Clicked Get Data > From Other Sources > From Web
  3. Left Basic selected
  4. In the URL field: entered https://www.timeanddate.com/holidays/us/
  5. Clicked Table 0 and Load
  6. The table successfully loads in Sheet2.