Find Last Cell And Move to New Column

Hi,

I am looking for a macro that will go through each row and find the last filled cell and move it to a column. As there are multiple rows with inconsistent filled cells the macro needs to find a blank column for them all to be placed in.

I have attached a sample file with the starting data and how I would like it to finish up.

Thank you in advance.