Public Sub ProcessData()
Dim i As Long, j As Long
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow - 1 To 1 Step -1
If .Cells(i + 1, "A").Value = .Cells(i, "A").Value And _
.Cells(i + 1, "B").Value = .Cells(i, "B").Value And _
.Cells(i + 1, "C").Value = .Cells(i, "C").Value And _
.Cells(i + 1, "K").Value = .Cells(i, "K").Value Then
.Cells(i, "J").Value = .Cells(i, "J").Value + .Cells(i + 1, "J").Value
.Rows(i + 1).Delete
End If
Next i
End With
End Sub