Formatting to carry to next column in table

I have several queries that upload data onto my worksheet vertically, which is the desired layout. The problem is that when new data is added after refresh and table expands sideways (new columns added to the right), formatting rules do not carry over. Therefore I must manually make the correction. Also I have a subsequent row ("Comments") which has formulas referencing data from the column.

So I am needed a VBA code which carries formatting rules over to next column if there is a new entry in cell B1.
Also need a code to extend formula AND formatting rules from B10 to C10 if there is a new entry in cell B1.

thank you

Would you mind adding the coding sequence to my attached sheet so I can understand and duplicate the steps on my own?

Please have a look to the attached file

Thanks.....that is exactly what I was looking for.

Question: I plan to create a macro button to refresh (Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False).

Could I attach this code to the refresh code so Refresh and Formatting can work simultaneously?

Hi....
Sorry I just realize that it can do by just copying the conditional formatted cell
then paste across to the right as many as the columns header are there in the table "Incidents".
So there's no need to code the conditional formatting.

Could I attach this code to the refresh code so Refresh and Formatting can work simultaneously?

Yes, I think it can.

Please try the revised code below, added with your refresh code line

Please Login or Register  to view this content.