I have already solved my own problem! Here is my code on how to achieve this output.
Sub DataChecker()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
Range("A2:IV" & LR).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo
For i = LR To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then
Cells(i - 1, "C").Value = Cells(i - 1, "C").Value + Cells(i, "C").Value
Rows(i).Delete
Cells(i - 1, "C").Interior.Color = RGB(255, 0, 0)
End If
Next i
End Sub
Once done, column C will have cells that are highlighted in red just to let you know that they are total values of the duplicates.