DimiAsIntegerDimjAsIntegerDimsumAsIntegerDimbeginrowAsIntegerDimstrAsStringDimGetPyAsStringsum=ActiveWindow.RangeSelection.Rows.CountForEachrngInActiveWindow.RangeSelection.AreasForEachcelInrngstr=cel.ValueGetPy=""Fori=0To