Delete all cells in each row except the last used cell then shift left all remaining data

Hi,
I'm trying to write a script that deletes all cells in a row except the last used cell, then shift left all data to the first column.
This then proceeds to the next row until all rows with data have been actioned.

See below for a better explination:

Please Login or Register  to view this content.

Thank you

Hello sktneer

Thank you the above code works exactly as I required.

Many Thanks,

Dave.