Insert Row based on changing data

[jslipher]

I love visiting these forums and reading all of the responses as I have learned so much from it. Unfortunately I have not been able to find this specific solution in the forum yet. I have a range of data A5:R55 and is sorted by ID's in column B. I would like to automatically insert a row everytime there is a change in ID, but I only want it to do that for the range given since there is more data beneath that range. Also, if there is a way to automatically insert formating such as top/bottom border for that new row would be great as well. Thanks ahead of time for any help you could provide!

 

[VoG]

Try

Sub InsRow()
Dim I As Long
For I = 55 To 6 Step -1
    With Range("B" & I)
        If .Value <> .Offset(-1).Value Then Rows(I).Insert
    End With
Next I
End Sub

 

[jslipher]

That worked, thanks!

 

[jslipher]

Ok, I actually have one more request that is related to this. After the row has been inserted, I want there to be a subtotal of each column G,H,I,J and then a weighted average of D relative to G for each new inserted row. I realize that the Subtotal tab will automatically do the sum like I'm wanting, but it will not do the weighted average.