VBA: Fjerne tabel formattering

Jeg har automatiseret en query der indlæser en tabel fra en pdf. Den kører snore lige, bortset fra overskrifter, hvor den laver en overskrift Column1 etc udover den overskrift som ligger i pdf filen også.

For at fjerne disse overskrifter er jeg nødt til at fjerne tabelformatteringen. Det kan jeg ikke få til at virke med .unlist (hvor vba melder subscript out of range).

Min kode er:
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""products"";Extended Properties=""""" _
        , Destination:=Sheets(strCloudflareSheet).Range("$C$12")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [products]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.Name = "products"
        .Refresh BackgroundQuery:=False
    End With
   
    ' Getting rid of the connection again (able to start over)
    ActiveWorkbook.Queries("products").Delete
   
    ' remove table and delete lines not needed
    ListObjects("products").Unlist
    Rows("12:13").Delete Shift:=xlUp

Kan nogle af jer give hints der kan få mig videre?