remove duplicated row and increase weight columns with vba

I'm trying to add a weight for source and target cell...so I do this :

     .Resize(, 4) = Array("Source", "Target", "Label", "Weight")
        .........

        Range(sStartingCellOutput).Offset(lRowOffset, lColOffset).Resize(1,4).Value = _
        Array(sq(lUser_1, 2), sqq(lUser_2), rTopic.Value,1)

then the result is like this :

 
Source ,Target,Label,Weight
2955,7733,1,1
7733,2955,1,1
2961,6498,2,1
6498,2961,2,1
2961,2962,3,1
2961,2962,3,1
2962,2961,3,1
2962,2961,3,1

But I didn't want to show the duplicates row (source and target) i want to remove the duplicate and increase the weight ...
like this :

Source,Target,Label,Weight
2955,7733,1,1
7733,2955,1,1
2961,6498,2,1
6498,2961,2,1
2961,2962,3,2
2962,2961,3,2

any help for that ??

thanks