VBA Extend Formula To Multiple Columns

Hi, I wonder whether someone may be able to help me please.

The extract of code below adds a subtotal to a given range.

Please Login or Register  to view this content.

The code that I'm having difficulty with is this part:

Please Login or Register  to view this content.

This applies the correct formula to the selected cell but I'm then wanting to apply this formula to the next 12 columns, but I'm not sure how to go about this.

I just wondered whether someone may be able to lookm at this please and offer some guidance on how I may go about achieving this.

Many thanks and kind regards

Chris

Hi TMS, thank you for coming back to me on this with the code.

I've inserted the code, but unfortunately I receive a run time error 13 type mismatch.

Many thanks and kind regards

Chris

Hi TMS, thank you for taking the timer to come back to me with this, and my apologies for not replying sooner.

Please find attached the file you asked for and please run the 'Subtotalsanddelete' macro.

Many thanks and kind regards

Chris

Hi hobbiton73,
try this

Please Login or Register  to view this content.

Hi @nilem, thank you for taking the time to read my post and for the suggestion. It works perfectly!

All the best and kind regards

Chris

Hi TMS, this is true, but you were kind enough to help from the beginning.

All the best and kind regards

Chris