"Match"-Funktion

kennt jemand von euch eine scnellere oder bessere Möglichkeit Zellen zu vergleichen als die Match-Funktion?
Denn wenn ich folgendes Makro ausführe, ist mein Rechner erst mal 10 min. beschäftigt (das liegt nicht daran das mein Rechner so lahm ist).

Private aussieben()
Dim v As Variant
Dim I As Integer
Dim irowl As Long, irow As Long
irowl = Cells(Rows.Count, 1).End(xlUp).Row
For I = 10 To 720
For irow = 1 To irowl
v = Application.Match(Worksheets("Tabelle1").Cells(I, irow).Value, Rows(2), 0)
If IsError(v) Then
Worksheets("Tabelle2").Cells(I, irow).Value = _
Worksheets("Tabelle1").Cells(I, irow).Value
End If
Next irow
Next I
End Sub

Vielen Dank.
Gruß John