Move duplicates from one worksheet to another

Hello everyone
Appreciate anyone who can help me in assisting to create this macro.
I need a macro to select the duplicate values of the first column
Then delete the entire row of that duplicate values Then Transfere of rows that were deleted
from the "Main sheet" to "Show Duplicates" sheet..... Thank you in advance.

You indicate that you want the duplicate values identified based upon the first column. That would include 123456789 which you have not included in your mocked up results. Please clarify. Should we be looking only at the first column or the whole row.

Power Query Solution

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Grouped Rows" = Table.Group(Source, {"Head1"}, {{"Count", each _, type table [Head1=number, Head2=text, Head3=text, Head4=text, Head5=text, Head6=text, Head7=text, Head8=text, Head9=text, Head10=text, Head11=text, Head12=text, Head13=text, Head14=text, Head15=text, Head16=text]}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each Table.AddIndexColumn([Count],"Ind",1,1)),
    #"Removed Other Columns" = Table.SelectColumns(#"Added Custom",{"Custom"}),
    #"Expanded Custom" = Table.ExpandTableColumn(#"Removed Other Columns", "Custom", {"Head1", "Head2", "Head3", "Head4", "Head5", "Head6", "Head7", "Head8", "Head9", "Head10", "Head11", "Head12", "Head13", "Head14", "Head15", "Head16", "Ind"}, {"Head1", "Head2", "Head3", "Head4", "Head5", "Head6", "Head7", "Head8", "Head9", "Head10", "Head11", "Head12", "Head13", "Head14", "Head15", "Head16", "Ind"}),
    #"Filtered Rows" = Table.SelectRows(#"Expanded Custom", each ([Ind] <> 1))
in
    #"Filtered Rows"

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

- Follow this link for an introduction to Power Query functionality.

- Follow this link for a video which demonstrates how to use Power Query code provided.

I don't like dealing with Power Query

I am curious. Why? Once I understand, I will stop sending you PQ solutions so as to stop wasting both our time.

Thank you for your response.

Man's mind stretched to new horizons, never returns to it original dimension.

Move duplicates from one worksheet to another

Sub test()
    Dim r As Range
    Sheets("show duplicates").[a1].CurrentRegion.Clear
    With Sheets("main").[a1].CurrentRegion
        Set r = .Offset(, .Columns.Count + 1).Range("a1:a2")
        r(2).Formula = "=countif(a$2:a2,a2)>1"
        .AdvancedFilter 2, r, Sheets("show duplicates").[a1]: r.Clear
        '.RemoveDuplicates 1, 1  '<--- if you want to remove the duplicate row(s)
    End With
End Sub

If that takes care of your original question, please choose Thread Tools from the menu link above and mark this thread as SOLVED. You can also access the SOLVED tag by editing the opening post and choosing SOLVED from the drop-down to the left of the title box.

Also, if you have not already done so, remember that you can reward anyone who offered you help towards a solution for your issue by clicking the small star icon (* Add Reputation) located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of each of those who offered help.