If the subtotal row is always the last row, you can capture the last row
with this:

LastRow=cells(rows.count,1),end(xlup).rows (assuming that there is data in
column 1)
cells(Lastrow,1).value = new stuff in column A
cells(Lastrow,2).value = more new stuff in column B

Glen
ps use the Conditional Formatting feature to automaticlly color the SubTotal
row


"SharonInGa" wrote in message
...
I want to color the sub-total row and insert a row after the subtotal row.
What vba code locates a sub-total row since the row names change every
time
the report is run?