Resize a table or........?

Maybe in the near future someone adds a column. So i like to count columns to.
Where do i put de LC?

Set ShI = Sheets("PKB")

LR = ShI.Cells(Rows.Count, 2).End(xlUp).Row
LC = ShI.Cells(2, Columns.Count).End(xlToLeft).Column
ShI.ListObjects("PKB").Resize Range("$B$5" & LC & LR)