SamT - the accuracy has increased as I adjusted this line: .Columns(3) = ((Sum_Q * Pie * (NumRows / (NumRows - 1))) / 2)

snb - it works now, the code was in Sheet1, I moved it to Module, thx