Okay...with a really poor understanding of what this function is doing behind the scnenes I was able to inch my way through the code.

Snippit:
      leftover = Application.Sum(temp)
      If leftover > 0 Then
          If temp(1) > 0 Then
              For i = 2 To rg.Columns.Count
                  temp(i) = 0
              Next
              temp(1) = leftover
          Else
              For i = 2 To rg.Columns.Count
                  If temp(i) > 0 Then temp(i) = leftover Else temp(i) = 0
              Next
          End If
      Else
          ' Changed the below i=2 to i=1
          For i = 1 To rg.Columns.Count
              If temp(i) < 0 Then temp(i) = leftover Else temp(i) = 0
          Next
      End If
Towards the bottom I changed the 2 to a 1 because it sounded good and, voila, it fixed my problem. That being said, I have no idea if it was a proper fix (ie, it may have broken something else)...but it appears to work so I'm going to go with it for now .