It's not beautijful but it works so far!


Range("A5").Select

Do Until Len(ActiveCell) = 0
If ActiveCell.Offset(1, 0) = ActiveCell Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(0, 1).Copy
ActiveCell.Offset(1, 1).PasteSpecial
ActiveCell.Offset(-1, 1).Copy
ActiveCell.Offset(0, 1).PasteSpecial
ActiveCell.Offset(0, 1).Value = "TOTAL"
ActiveCell.EntireRow.Font.ColorIndex = 3
ActiveCell.Offset(1, -2).Select
End If
Loop

Many thanks

"Rick Rothstein" wrote:

You say your code inserts a blank row after a change in name and inserts
"Total", but your example doesn't show this. Can you post the code you are
using to do your "insert"? It will probably be easier to handle the
insertion of the COUNTA function at the same time the word "Total" is
inserted.

--
Rick (MVP - Excel)


"Adam" wrote in message
...
Hi

I've got a data dump. I've figured out how to insert a blank row after a
change in name in column A and insert "Total" - so...

bill....
bill....
bill Total -
bob....
bob....
bob....
bob Total -

What I need in column C next to total is to insert the COUNTA function for
each person.

Any ideas?

cheers



.