Subtotals

[haas786]

Hey all,

I was wondering if i can program something in VBA which would allow me
to do subtotals and then insert lines between the subtotals to allow
the formatting to look good. For example, I have a 10 companies for
which i display subtotals; i have written the VBA code to allow me to
do the subtotals at the press of a button, but to make my report look
presentable, i'd like spaces between the company names/subtotals. Is
there a way to do this easily?

Thanks!

 

[Joel]

If the subtotals were in a unique column or the word subtotal appeared in the
worksheets then you could use code like this

LastRow = Range("A" & Rows.Count).end(xlup).row
For RowCount = LastRow to 1 step -1
if Range("A" & RowCount) = "Subtotal" then
Rows(RowCount + 1).insert
end if
next RowCount