Public Sub Get_Totals()

Dim rw As Long
Dim total As Double
rw = 2
Do Until Cells(rw, "A") = ""
If Cells(rw, "A") = Cells(rw + 1, "A") Then
total = total + Cells(rw, "D")
Else
Cells(rw, "E") = total + Cells(rw, "D")
total = 0
End If
rw = rw + 1
Loop
End Sub


"rahul25" wrote:


Loacation Name Sales Comm
252 ABC 100 12.5
252 CCC 100 12.5
252 DDD 100 12.5
300 EEE 100 12.5
300 FFF 100 12.5
500 GGG 100 12.5
500 HHH 100 12.5
500 KKK 100 12.5

This is the data I got from external databae query. Is there any VBA
code to add subtotal and also running total in the rows after evry
location number changes. I mean, If I run the vba macro It will insert
two rows after every location changes. One row for subtotal for the
each locaion and in the next row will be the cumulative totals for all
location upto that point.


--
rahul25
------------------------------------------------------------------------
rahul25's Profile: http://www.excelforum.com/member.php...o&userid=28899
View this thread: http://www.excelforum.com/showthread...hreadid=494469