[問題］Excel VBA 如何下指令，刪除 Web 查詢

ThisWorkbook.Queries.Add Name:="kkkk", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " 來源 = Json.Document(Web.Contents(URLstr))," & Chr(13) & "" & Chr(10) & " 已轉換為資料表 = Record.ToTable(來源)" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " 已轉換為資料表"
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=kkkk" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [kkkk]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = False
.ListObject.DisplayName = "kkkk"
.Refresh BackgroundQuery:=False
End With
-------------------------
請問：
如何用 VBA 指令，刪除工作表中，剛新增的一道網頁滙入 [KKKK] 查詢呢？

有試過　ActiveSheet.ListObject("kkkk").QueryTable.Delete，
程式會出錯。