You can get rid of the multiple range references by using a With clause.

As to no loop, undoubtedly, but it is very difficult to ascertain what you are doing to work out the formula. For instance, you divide by 1!