Add a column to the end of a Table

[gheyman]

I have a table [PQ_Material_Assoc_Costs] on a sheet named PQ Material Assoc Costs
The table headers are in Row 1 (Starting in A)

The table is dynamic so i dont know in advance how many columns there will be.

How can I find what is the last column in my table and then add these two "fields"?

(This is using Y and Z but as stated, i dont know what column will be the last one and where to add these so that they are add and are the last two)
Sheets("PT Material Assoc Costs").Range("Y1") = "Mtrl Consolidation"
Sheets("PT Material Assoc Costs").Range("Z1") = "Vendor Name"


Thank you for your help

 

[JGordon11]

Assuming your sheet name is PQ Material Assoc Costs as described in the first line and not PT Material Assoc Costs as implied in these statements:

Sheets("PT Material Assoc Costs").Range("Y1") = "Mtrl Consolidation"
Sheets("PT Material Assoc Costs").Range("Z1") = "Vendor Name"

try:

    With Sheets("PQ Material Assoc Costs").ListObjects("PQ_Material_Assoc_Costs").HeaderRowRange
        With .Offset(0, .Count).Resize(1, 2)
            .Value = Array("Mtrl Consolidation", "Vendor Name")
            .EntireColumn.AutoFit
        End With
    End With

 

[gheyman]

Perfect! And Thank You