Add or Delete Adjacent Columns When Changing Row Count

When I add a row to a table, I'd like it to move along with it the cells adjacent (one on either side). As an example, here is what I was attempting when adding a row. I keep getting an error that the object does not support the property. However, the object - ListRows - does work when simply using listrows.add.

Deleting is a separate sub and x = inputted number of rows. Suggestions for change are much appreciated. Thanks

Please Login or Register  to view this content.

Tried it this way and it still didn't work.

Please Login or Register  to view this content.

Is resize not allowed with listrows object?

For now, as a workaround, I've just manually added a column to both sides of the table and whited out the fill and font. The only dilemma is the visible line for total row. It's not perfect but ok for now.

This is still one of the last remaining upgrades I'm trying to accomplish in my workbook. I'm still stuck on this one.

Any help would be much appreciated.

Mark over at Excel Off the Grid helped me out and this is solved. Code should be:

Please Login or Register  to view this content.