Macro duplicados borrar a mover

Hola tengo una macro que me elimina duplicados, lo que necesito es que me mueva a una nueva hoja los duplicados el libro viene con una sola hoja ya q es una exportación de access a xlsx, y con una macro me elimina los dups pero necesito que en vez de borrar los duplicados me genere una nueva hoja y me los mueva allí a los dups y en la primer hoja me quede solo los valores únicos. Abajo copio la macro q debería modificar

gracias

Sub repetidos()
Application.ScreenUpdating = False
Range("E2").Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range("E:E"), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("E2").Select
Application.ScreenUpdating = True
MsgBox "Duplicados borrados!"
End Sub

pd. La macro borra como debería para el que le interese ahi esta