Doppelte Werte in Excel finden und Zeilen mit VBA auf ein anderes Blatt exportieren

Ich bin neu in VBA-Skripten ... Was ich versuche zu tun, ist:

Spalte auf doppelte Werte in MS Excel-Datei prüfenWenn Duplikate vorhanden sind, kopieren Sie Zeilen mit doppelten Werten in ein anderes Arbeitsblatt ...

Zum Beispiel habe ich eine Tabelle1 mit Inhalt:

Ich möchte den Inhalt in Spalte A durchgehen und Zeilen mit doppelten Werten in Spalte A in ein neues Blatt exportieren:

Nach dem Suchen und Bearbeiten einiger VBA-Skripte habe ich diesen Code gefunden:

Sub FilterAndCopy()

Dim wstSource As Worksheet, _
    wstOutput As Worksheet
Dim rngCell As Range, _
    rngMyData As Range
Dim lngMyRow As Long

Set wstSource = Worksheets("Sheet1")
Set wstOutput = Worksheets("Sheet2")
Set rngMyData = wstSource.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

Application.ScreenUpdating = False

For Each rngCell In rngMyData
    If Evaluate("COUNTIF(" & rngMyData.Address & "," & rngCell.Address & ")") > 1 Then
        lngMyRow = wstOutput.Cells(Rows.Count, "A").End(xlUp).Row + 1
        wstSource.Range("A" & rngCell.Row & ":D" & rngCell.Row).Copy _
            Destination:=wstOutput.Range("A" & lngMyRow & ":D" & lngMyRow)
    End If
Next rngCell

Application.ScreenUpdating = True
End Sub

Ist das der richtige Code? Kann es optimiert werden, um schneller zu sein?

Ich habe 80.000 Datensätze, um damit fertig zu werden ...