summing sets of numbers and adding ablank row

[El Conquistador]

I have a very large DB that needs to be automated. There are blank rows between each set of data. I need a MACRO that will sum the numbers in one of the columns in a data set and then insert another blank row under it, then move down the column repeating the process. The data sets are of varying sizes and there are lots of them. I would also like to copy the sums to another sheet.

The Sub function is not feasible because of the format of the file and the additional steps that I require.

[oeldere]

Please read the link below

http://www.excelforum.com/the-water-...-question.html

[El Conquistador]

I hope that it worked.

[oeldere]

With the macro below.

See the attached file.

Please Login or Register  to view this content.

[El Conquistador]

thanks for the effort but that does not work at all.

[oeldere]

the code works, but maybe it is not what you are exeption.

Put your result manualy in your sheet, then all member have a better feeling of what you'r trying to achieve.

How do the data come in the sheet (download?)?

[El Conquistador]

Sub sbttls()
Dim LastRow As Long, i As Long, aArea As Range
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each aArea In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).Areas
Cells(aArea.Row + aArea.Rows.Count, 1).Value = WorksheetFunction.Sum(Range(Cells(aArea.Row, 1), Cells(aArea.Row + aArea.Rows.Count - 1, 1)))
Next aArea
End Sub