Delete non-empty columns

[Rainmanne]

I have a table with columns of data, the number of which may vary. I need to write a simple code to include in a macro, which would delete all non-empty columns after column G. All the columns have headers in row 1. I am just a bit confused with a number of options.

 

[Rick Rothstein]

Is this a "real" Excel table object or just an area of the worksheet that you think of as a table?

 

[Rainmanne]

Is this a "real" Excel table object or just an area of the worksheet that you think of as a table?

Yes, it's a spreadsheet in Excel. I've got a model which imports data from another spreadsheet and then uses preset tables with formulas to organise it differently. Depending on a number of years of data, it's fill the formulae right. When I need to update the formulae for any reason, I'm doing it in the resulted file and then comment out the formulas and delete all the years but the first one. I used to do it manually. I've got a macro to comment out formulas (there are a lot of them) but some other things I did manually. So I want to automate it as well.