addieren

Sub Addieren()
Dim Lrow As Long, X As Long, LastId, LastRow As Long
With ThisWorkbook.Sheets("GTV")
Lrow = .Cells(.Rows.Count, "D").End(xlUp).Row
LastRow = 2
LastId = .Range("D2")
For X = 3 To Lrow
If X > Lrow Then Exit For
If LastId = .Range("D" & X) Then
.Range("L" & LastRow) = .Range("L" & LastRow) + .Range("L" & X)
.Range("M" & LastRow) = .Range("M" & LastRow) + .Range("M" & X)
.Rows(X).Delete Shift:=xlUp
Lrow = Lrow - 1
X = X - 1
Else
LastRow = X
LastId = .Range("D" & X)
End If
Next
End With
End Sub