ListObject TotalsRowRange to sum - Autofill

I'm trying to set a selected portion of the TotalsRowRange to sum from column 6 to the last column.

This is the recorded code which uses the column headings which does the job, however these names will change and so will the table's size:

Please Login or Register  to view this content.

I wish to do this using the Cells property where I can claculate what the last row and column will be but can't get it to work.

I've got the correct count of lrow (9) and lastcol (58) and have tried and failed with the following:

Please Login or Register  to view this content.

So the addresses for source cell is correct and the destination autofill range is correct, however it doesn't seem to do anything.

What's missing?

Example attached - had to remove most of the sheets as sensitive data on but shouldn't affect functionality of the troublesome table.

The module in question is 'Project_data' and 'Module1' has the recorded Macro.

I did step through the code (most of the morning!) and it happily goes through these lines of code without error, but refuses to carry out the request it do as requested - it simply doesn't register any action.

Well stone the crows! It works!
So you have to included the original source range when using AutoFill - learn something new every day!

Thanks!