How to add range in a Formula through VBA

Thanks ,

But i would like to do in VBA only , as only a part of data i have shared .
There were several tasks i have to perform on the same sales tracker.
So Please suggest me if it would be done through VBA.

Thanks