Macro SUM 2 Colums & Delete Row, but Works in 1 worksheet but in other WSheet Doesn't Work

Hi feroguz,

Here's another way:

Sub sumarizar_duplicados()

Dim LR As Long, i As Long, j As Long
LR = Range("C" & Rows.count).End(xlUp).row

For j = 4 To LR
    For i = 5 To LR
CullDupes:
        If i = j Then i = i + 1
        If Cells(i, "C").Value = Cells(j, "C").Value Then
            Cells(j, "H").Value = Cells(i, "H").Value + Cells(j, "H").Value
            Rows(i).Delete Shift:=xlUp: LR = LR - 1: GoTo CullDupes
        End If
    Next i
Next j

End Sub