Not Actual Values

The attached code is for inserting invoice entries into a spreadsheet. Irhodes kindly tidied up and modified my original code so that it worked much better.
The only thing is that now cells 6, 7 and 8 do not show the actual amount of vat as I need but the percentage rate.

I can follow the changes but do not have the knowledge at the moment to change it.

Can someone help please?