Routine to clear one column listobject

Hi,

i want to clear databody range in listobject, resize table to have only header and first row and transpose array into table.

I am using code:

Set lstHidden = HiddenDV.ListObjects("Vn_Input_Tiers_Group")

    With lstHidden
        .DataBodyRange.ClearContents
         Set R = .Range.Rows(1).Resize(2)
         .Resize R
        .DataBodyRange.Resize(arrayList.Count).Value = Application.Transpose(a)
    End With

And this is not working on databodyrange, why?

I have error there: "Object variable or with block variable is not set"

Please help,

Best,
Jacek

thaNK YOU Andy Pope,

so on worksheet i see the listrow but there is no reference to it.
I solved the issue in other way - i used not databodyrange but range property of table and with resize is working like a charm,

Best,
Jacek