VBA to sum

[winmaxservices]

Hi,

Please find attached file with a code.

After excuting the code. two columns with heading of "No. of Claims" will be created.

I tried Lot. But couldnt make it.

I need to have sum calculation same as given below amount. means I need total numbers in Cell F15 and K15.

Also wanted to add text "Grand Total" below the alphabets (in cell E15 and J15) with Bold font same as sum.

And wanted to give heading to newly created columns by merging cells as mentioned in the sheet 1.
Refer cell B5, E5 and J5. Pls note my data range will change from time to time. It will always not start from B6. Hence Wants to give heading on immediate row above the table.