Routine to clear one column listobject

[jaryszek]

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