VBA transpose rows to columns

Hello great minds I am hoping you can help me.

I'm trying to take the attached sample and transpose the data. But I need some help with the code.

I've done it before with a range that I put in for one row at a time.I have also put that code in the sample file I uploaded. But I need to have this code find the end of each row and copy that data and paste transpose and then copy the total amount in a different cell and paste it next to all the transposed data (See attachment). The original data needs to move either into the same worksheet to columns A, B & C or to a new sheet that part doesn't matter.

Any help or advice would be great. I am still learning VBA.

The code works on an active sheet. The cursor has to be on the sheet you wish to run and the output is on new sheet created by the code, but I can change it for the out put to be on the same sheet.

You ROCK!!!! This is just what I was looking for

On the same sheet out put