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!
VBA Code:
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
Last edited by a moderator: