Autosum Lines with Numeric Values

[Arcesso]

I am a beginner and am also stuck. I would like this code to check for a column that has a numeric value, go to the first blank cell in the column, and then auto-sum all of the populated lines above it into the blank line and then move down the column to the next populated cell, check for a numeric value, move to the next blank cell, auto-sum, and so on. The format of the column is like this: blank line blank line data data blank line (desired space for auto-sum from data above) blank line data data data data blank line (desired space for auto-sum from data above) blank line There are always 2 blank cells but the data cells vary which is why I am having the trouble. Here is my code. The spot I cant get working is commented. Do If ActiveCell.Value <> "" Then If IsNumeric(ActiveCell) = True Then Begin = ActiveCell.Address Do Counter = Counter + 1 ActiveCell.Offset(1, 0).Select If ActiveCell.Offset(1, 0) = "" Then Finish = ActiveCell.Offset(-1, 0).Address End If Loop Until ActiveCell = "" 'broken code ActiveCell.Value = "=SUM(.cells(Begin),.cells(Finish))" 'broken code End If End If ActiveCell.Offset(0, 1).Select Loop Until ActiveCell.Offset(1, 0) = ""

 

[VoG]

Check out SubTotals http://office.microsoft.com/en-us/e...working-with-levels-in-excel-HA001109798.aspx