Excel 2016中的宏不移动两个重复的行，而只移动其中的一个重复行

Sub MoveDuplicateRow()
    Dim lastRow As Long
    Dim rng As Range
    Dim i As Long, j As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        Set rng = ActiveSheet.Range("A1:A" & i - 1)
        If WorksheetFunction.CountIf(rng, Cells(i, 1).Value) > 0 Then
            For j = lastRow To 2 Step -1
                If Cells(j, 1).Value = Cells(i, 1).Value And j <> i Then
                    Rows(j).Cut
                    Rows(i + 1).Insert Shift:=xlDown
                    Exit For
                End If
            Next j
        End If
    Next i
End Sub