如果列中的单元格，则查找并复制第一行

Question

我有~5000行，5到45列，E列是唯一或重复的值。始终必须将具有重复的第一行复制到工作表2.因此，如果我在E2到E10中具有相同的值，则复制工作表2中的第2行。 我必须复制行的值，因为有公式，我不想删除行，只需将它们复制到表2中。

Sub Sample()
    Dim LastRowcheck As Long, n1 As Long
    Dim DelRange As Range

    With Worksheets("Sheet1")
        LastRowcheck = .Range("E" & .Rows.Count).End(xlUp).Row

        For n1 = 1 To LastRowcheck
            If .Cells(n1, 5).Value = Cells(n1 + 1, 5).Value Then
               .Rows(n1).Copy Destination:=Worksheets("Sheet1").Rows(n1)

            End If
        Next n1

        If Not DelRange Is Nothing Then DelRange.Delete
    End With
End Sub