find all duplicate entries and copy to another sheet

hi guys, I have searched and copied different pieces of code but just seem to get myself more confused, what I need is, see below, I would like some vba code that can check column E for duplicates and then copy those rows to sheet3, so looking at the below, column E (5), the code needs to identify 1111 in rows, 1,4,7,9 and rows 2,5 (2345), and any others, and then copy these rows to sheet3, any help would be appreciated

scouse13

Sheet2
KKS
A B C D E F G H ETC
1 NO 1234 YRT DPK 1111 RTG YES NO
2 2345
3 27654
4 1111
5 2345
6 09864
7 1111
8 5748
9 1111
10 0286

How about

Sub scouse13()
   Dim Cl As Range, Rng As Range
   Dim Dic As Object
   
   Set Dic = CreateObject("scripting.dictionary")
   With Sheets("Sheet1")
      For Each Cl In Range("E2", .Range("E" & Rows.Count).End(xlUp))
         If Not Dic.Exists(Cl.Value) Then
            Dic.Add Cl.Value, Cl
         Else
            If Rng Is Nothing Then Set Rng = Union(Cl, Dic.Item(Cl.Value)) Else Set Rng = Union(Rng, Cl, Dic.Item(Cl.Value))
         End If
      Next Cl
   End With
   If Not Rng Is Nothing Then Rng.EntireRow.Copy Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

Change sheet names to suit

Can you post your test file?