Excel Makro

Ich habe eine Excel Tabelle. Die Tabelle hat Werte in den Spalten A-T. Täglich lese ich neue Daten in die Anwendung für die Spalten A-H und sortiere dann die Tabelle nach Spalte B. Nach dem Sortieren sind dann ein alter und ein neuer Datensatz untereinander vorhanden. Es gibt nicht immer für einen bestehenden Datensatz einen Neuen.


Ich möchte nun bei Gleichheit der Datensätze Spalte B den alten löschen. Zuvor müssen aber die Werte der Spalten K-T in den darunter liegenden Datensatz kopiert werden.


Wurden einem bestehender Datensatz kein neuer Satz aufgelesen so soll dieser stehen bleiben.


Mein aufgeführtes Skript funktioniert wenn zu jedem alten Datensatz ein neuer vorhanden ist.


Gibt es aber einen Bestehenden Datensatz für welchen kein neu aufgelesener vorhanden ist, werden durch Erhöhung des Zählers die Zellenbezüge erhöht. Dies darf aber nicht sein.


Hoffentlich kann mir jemand weiter helfen!!


Sub DoppelteZeilenLöschen()

Dim ersteZeile As Long
Dim Zeile As Long
Dim i As Long
Dim sb As Long
Dim ii As Long
Dim se As Long
Dim sbl As Long
Dim sel As Long


sb = 11 'Spaltenbeginn
se = 20 'Spaltenende
sbl = 1
sel = 20

i = 2
ii = 3

ersteZeile = Range("A2").End(xlUp).Row

For Zeile = ersteZeile To 60 Step 1


If WorksheetFunction.CountIf(Range("B2:B2" & Zeile), Cells(Zeile, 2)) > 1 Then

Range(Cells(i, sb), Cells(ii, se)).Select
Selection.FillDown

Range(Cells(i, sbl), Cells(i, sel)).Select
Selection.Delete Shift:=xlUp

i = i + 1
ii = ii + 1


End If

Next

End Sub