Kann dieses Makro funktionieren?

Ich habe folgendes Makro:

For i = 1 To versetz
Selection.ClearContents
ActiveCell.Offset(1, 0).Activate
Next i

versetz wurde vorher deffiniert als Variable (Dim versetz as Variant)
Der Wert von Variant ist eine Zahl(Mit Formel berechnet), die sich in Zelle H2 befindet.

Funktion:

Aus einer Liste sollen an einer Bestimmten Stelle Zahlen gelöscht werden (NICHT die Zellen)und zwar gena so viele Zahlen, wie als Wert in der Zelle H2 steht. Bsp:

Wert Zelle H2=2

Vorher:

10
20
30
40
50

Ergebniss:

10

40
50

Funktioniert das?Wenn nicht, was muss ich genau verändern?

Danke für die immer sehr hilfreichen Antworten!

Rolf