Array anstelle von find

Hallo Excelfreunde,
ich habe mal wieder ein Problem und bin im Netz nicht so recht fündig geworden.
Und zwar habe ich performance Probleme bei meinem Makro.
Es dauert zu lang und ich versuche die Zeit zu reduzieren.
Events, automatische Berechnungen und Bildschirmaktualisierung sind bereits aus, Fenster wird minimiert.
Das hat auch alles seinen Zweck erfüllt, aber ich muss weiter optimieren.
Online habe ich gelesen, dass durch die Verwendung von Arrays statt Find eine Zeitersparnis möglich ist.
Siehe: https://fastexcel.wordpress.com/2011/10/26/match-vs-find-vs-variant-array-vba-performance-shootout/
Leider habe ich es nicht geschafft, daraus schlau zu werden, geschweige denn es auf mein Projekt zu übertragen.
Mein Code sieht die Verwendung von Find folgendermaßen vor:
https://www.herber.de/bbs/user/105144.xlsm

Public Geschlecht As String, Spartarten As String
Sub Leerzeilenlöschen()
'Es sollen die Bereiche gelöscht werden, bei denen alle drei Tageszeiten für Gesamt Frau und  _
Gesamt Mann jeweils 0 sind
'Die Suchmatrix mit dem String Mann/Frau ist die Spalte C
Set suche = Range("C1")
'in der Spalte N gibt es eine beliebige Anzahl an Sportarten, für die in den Spalten D, E unf F  _
_
Werte stehen
'Sie tauchen dort in Blockform auf und unterteilen sich noch einmal in Kategorien
'Die Sportarten müssen gezählt werden, damit die Blöcke nacheinander abgesucht werden können
Sportarten = Application.CountA(Sheets(xy).Range("N:N"))
'Wenn in den Zeilen Gesamt Frau/Mann jeweils die Spalten D, E und F 0 sind, wird der ganze  _
Block (-3 Zeilen nach oben) gelöscht
'Dazu werden zuerst die Zeilen der Frauen abgefragt
Geschlecht = "Frau"
'Wenn alle drei Werte 0, Zeilen löschen
Leerzeilen
'und das gleiche für die Männer
Geschlecht = "Mann"
'Wenn alle drei Werte 0, Zeilen löschen
Leerzeilen
End Sub
Sub Leerzeilen()
On Error Resume Next
'finde Geschlecht
Do
Set rngCell = ActiveSheet.Range("C1", "C500000").Find("Gesamt " & Geschlecht, LookAt:= _
xlWhole, LookIn:=xlValues, MatchCase:=True)
Set suche = rngCell.Offset(1, 0)
If rngCell.Offset(0, 1).Value = "0" And rngCell.Offset(0, 2).Value = "0" And rngCell.Offset( _
_
0, 3).Value = "0" _
Then Range(rngCell.Offset(0, 0), rngCell.Offset(-3, 0)).EntireRow.Delete
counter = counter + 1
Loop While counter < Sportarten
counter = 0
Set suche = Range("C1")
End Sub