Loop through sheets copy column move to end of data

Hi,
I need to edit the code below to find the word "Volume" in the header cell (the code can search the entire sheet), copy that entire column, move it to the first column after the last used column of data in the same sheet, rename it "Total Volume" and delete the original "volume" column. I need this done on every worksheet in the workbook.

The incomplete code I have so far is below. It copies a the correct column on a random(EDIT: It copies the column from the LAST worksheet with the word "Volume" so it's looping to the end and copying the last instance) worksheet, though and just stops, so the loop must be wrong.

Please Login or Register  to view this content.