vba zellen löschen

Hey!
Sitze seit ungefähr 3 Stunden an einer Excel mappe, und bekomme die wohl leichtesten Sachen in VBA nicht auf die Reihe.

Ausgangspunkt ist eine Tabelle mit 4 Spalten, wobei die letzte die wichtigste mit Zahlen ist.

Aufgabe:
[x] berechnungen anstellen (ergebnis in Zellen H11: "0"; und H12: "82,01708")
[x] Die Tabelle in ein neues Tabellenblatt kopieren
[ ] Alle Zeilen, die nicht zwischen den berechnungen (also "0" und "82,...") liegen sollen eliminiert werden

aktuell schaut mein code so aus:

Sub Makro1()

ActiveSheet.Range("a5", ActiveSheet.Range("a5").End(xlDown).End(xlToRight)).Select

Selection.Copy
Sheets("TaskA").Select
Range("a5").Select
ActiveSheet.Paste

ActiveSheet.Range("d1", ActiveSheet.Range("d5").End(xlDown)).Select

Dim oZelle As Object
Dim i As Integer

For Each oZelle In Worksheets("TaskA").Range("d5", ActiveSheet.Range("d5").End(xlDown))
i = i + 1

If oZelle < 90 Then
oZelle.EntireRow.Delete '
End If

Next

End Sub

was macht das ding? kopieren
was macht es nicht? die richtigen zellen löschen
mir ist bewusst, dass ich einfach die zahl "90" händisch umändern könnte, allerdings soll dies automatisch geschehen. abgesehen davon blieben die zahlen <0 auch drin, was sie ja nicht sollen

wieso ich genau diesen code benutzt hab weiß ich auch nicht (beste voraussetzung ). hab es nur irgendwie mit google zusammen kopiert

ich hoffe mir kann geholfen werden.