Office: Makro erweitern

Hallo zusammen,

ich habe folgendes Makro erstellt. Aus einer Tabelle werden alle Zeilen gelöscht, die in Spalte J nicht einen der vorgegeben Werte enthalten (vgl VBA-Code):

Option Explicit

Sub x()
Dim i As Long, v As Variant

For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
v = Cells(i, 10).Value
If v <> 85401108 And v <> 85501112 And v <> 85551114 And v <> 85601102 And v <> 85601105 And v <> 85601106 And v <> 85601107 And v <> 85601109 And v <> 85601110 And v <> 85651115 And v <> 85701113 And v <> 86501403 And v <> 85601404 And v <> 86103801 And v <> 86103804 And v <> 86103806 And v <> 86203611 And v <> 86203613 And v <> 86203614 And v <> 86203615 And v <> 86309000
And v <86309021> die Tabelle soll nach Spalte D (aufsteigend) sortiert werden

--> danach sollen die Werte von Zellen in Spalte H summiert werden, wenn die Werte der Zellen in Spalte C,D und J identisch sind. Zeilen, welche verdichtet wurden, sollen danch gelöscht werden.

(siehe Beispiel Datei)

Ich hoffe dies ist möglich......ich bin zumindest mit meinem Latein am Ende.

Vielen Dank

Gruß
mspace69