Help with a Macro that adds columns to a table

Hello,

I was wondering if I could get some help. I created a simple macro that tranposes the data I paste in an area of the worksheet into a table. Then it does data bars on all the rows, and highlights cells that are over a certain value.

The problem is that it only works once. I don't know how to make the macro keep appending new columns to the end of the table.

I included a before and after worksheet to show what's going on. Any help would be super appreciated. Thanks

Bump for help