Count Unique Values

Hello Again,

I have adopted the below script and ammend it according to my requirement. But i was struck with a small issue. What i am doing here is i am inserting a blank row after every unique value change and trying to sum the above. But i am unable to put the formula and the problem is here in highlighted part.

Dim StartRow As Integer
Dim EndRow As Integer
StartRow = 2
EndRow = Range("A500").End(xlUp).Offset(1, 0).Row
For i = StartRow To EndRow
If Cells(i, "B") = "" And i > StartRow Then


Cells(i, "A").Formula = Cells(i - 1, "A").Value & "=SUM(E" & StartRow & ":E" & i - 1 & ")"""

StartRow = i + 1
End If
Next

I appreciate if any one help me to solve this issue please.

Thanks Venkat. But i am trying to sum after insert a new row when the unique value is change. Can you help me please.

Best you post a sample of your workbook.

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Thanks Marcol.

As requested please find the attachment with sample.

Out put should be for example :Class A Total # 4

Thanks for your solution but it will be very helpful if you correct the script in post 1. 99% it is working but issue is the special format of totaling the unique values.

I can't clearly see what you need to do ...

1/. Which column is the unique value column you need to count?

2/. Which column is the one you need to sum?

3/. What is the 1% situation not covered by the various solutions I offered?

Thanks marco for the solution topic marked as solved and reputation is added.