M

#### mkerstei

row and calculates the previous row divided by the bottom of th

previous row, which is a total. This gives the percentage of th

total. This all worked fine.

Then I had to add two rows and take the percentage of that. I made

new row that was the addition of the two previous rows. That work

fine, but now the maco that was working on all the other rows, won

work on the new row. It gives me an overflow error and I cant figur

out why... any suggestions?

Here is a snippet of my macro. The green text is the part that works.

The blue text is the addition part, which also works but could b

leading to the overflow. The yellow part is the area that does no

work, and the red is where the overflow is specifically occuring:

Columns("ac:ac").Select

Selection.Insert Shift:=xlToRight

Dim varTotal, var7, var8

var7 = Range("ac2")

var8 = Range("ab1").Select

Selection.End(xlDown).Select

ReportLastRow = ActiveCell.Row

varTotal = var7 / var8

Range("ac2").Select

ActiveCell.FormulaR1C1 = _

varTotal

Set r = Range("ab1").End(xlDown)

s = r.AddressLocal(True, True, xlR1C1)

For i = 1 To r.Row

Range("ac2").Select

ActiveCell.FormulaR1C1 = "=RC[-1] / " & s

Next i

If IsEmpty(ActiveCell) Then Exit Sub

Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0

1)).FillDown

Columns("af:af").Select

Selection.Insert Shift:=xlToRight

Range("Af1").Select

ActiveCell.FormulaR1C1 = "FIX & COM"

Range("af2").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]"

If IsEmpty(ActiveCell) Then Exit Sub

Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0

1)).FillDown

Columns("ag:ag").Select

Selection.Insert Shift:=xlToRight

Dim blahTotal, var9, var10

var7 = Range("ag2")

var8 = Range("af1").Select

Selection.End(xlDown).Select

ReportLastRow = ActiveCell.Row

blahTotal = var9 / var10

Range("ag2").Select

ActiveCell.FormulaR1C1 = _

blahTotal

Set r = Range("af1").End(xlDown)

s = r.AddressLocal(True, True, xlR1C1)

For i = 1 To r.Row

Range("ag2").Select

ActiveCell.FormulaR1C1 = "=RC[-1] / " & s

Next i

If IsEmpty(ActiveCell) Then Exit Sub

Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0

1)).FillDow