Removing duplicates using VBA

[Msears]

Hello All, I am trying to figure out how to modify this existing code. It works good as an initial step. Where it fails is that each time it is pressed, it duplicates existing data. I know I can click remove duplicates, but that is tedious for each of the 12 sheets. Any ideas? Thanks in advance!

Private Sub SendButton_Click()
   a = Worksheets("Test 3").Cells(Rows.Count, 1).End(xlUp).Row
  
Application.ScreenUpdating = False
  
For i = 2 To a

    If Worksheets("Test 3").Cells(i, 2).Value = "Group Skills" Then
       Worksheets("Test 3").Rows(i).Copy
        Worksheets("Test1").Activate
        b = Worksheets("Test1").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Test1").Cells(b + 1, 1).Select
        Worksheets("Test1").Paste
        Worksheets("Test 3").Activate
           
    End If
Next

Application.CutCopyMode = False

Application.EnableEvents = True

Application.ScreenUpdating = True

ThisWorkbook.Worksheets("Test 3").Cells(2, 1).Select

End Sub

 

[Zot]

Which part was duplicated? It is not clear what you were trying to explain. Perhaps you can install XL2BB and copy paste part of your sample sheet to give better picture.

 

[Msears]

Which part was duplicated? It is not clear what you were trying to explain. Perhaps you can install XL2BB and copy paste part of your sample sheet to give better picture.

Since this file is on my work pc, I cannot install downloads. Nonetheless. I have screenshots.
In the capture3, shows the original data. Capture4, shows the result after 1 click. Capture5m shows after 2 clicks. The original data is constantly updated for each day, and we want to send it to their designated sheets daily and do not want overlapping data.

 

[Msears]

@Fluff

 

[jolivanes]

Clear the sheets first and run your code.

 

[jolivanes]

What is the meaning of Post #4?

If you want only certain people to do your work, just let us know beforehand please.

Try on a copy of the original and check to make sure it does what you want.

Sub Maybe()
Dim shT3 As Worksheet, shT1 As Worksheet
Dim lr As Long, i As Long
Set shT3 = Worksheets("Test 3")
Set shT1 = Worksheets("Test 1")
shT1.UsedRange.Offset(1).ClearContents
lr = shT3.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lr
        If shT3.Cells(i, 2).Value = "Group Skills" Then shT1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4).Value = shT3.Cells(i, 2).Offset(, -1).Resize(, 4).Value
    Next i
End Sub

 

[Msears]

What is the meaning of Post #4?

If you want only certain people to do your work, just let us know beforehand please.

Try on a copy of the original and check to make sure it does what you want.

Sub Maybe()
Dim shT3 As Worksheet, shT1 As Worksheet
Dim lr As Long, i As Long
Set shT3 = Worksheets("Test 3")
Set shT1 = Worksheets("Test 1")
shT1.UsedRange.Offset(1).ClearContents
lr = shT3.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lr
        If shT3.Cells(i, 2).Value = "Group Skills" Then shT1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4).Value = shT3.Cells(i, 2).Offset(, -1).Resize(, 4).Value
    Next i
End Sub

@jolivanes Thanks so much Jolivanes this worked perfectly. As for post #4 disregard, my son had my phone and decided to imitate what I was doing on another post, unbeknownst to me he was on this one and there is not edit button.

 

[jolivanes]

OK, thanks for letting us know and the explanation.
Good Luck