Need to append name from sheet1 column A with Sheet2 column A and past unique names in Sht

Hi,

Can anyone please help me with this.
I need a macro that can copy list of names from Sheet1 column "A" to Sheet2 column "A"
Note: Need to append names from sheet1 to sheet2
Finally only unique names should be pasted in sheet3 Column A from Row 6...

Attached excel for your reference...

Please advise.

Thanks, First part works great...

Now I need to remove duplicates from Sheet2 and only unique names from sheet2 has to be pasted in employees sheet from column "A" row "6" onwards..

Please advise.

Hi,

I mean that only unique values from sheet2 should be copied to employees
and next time I run the macro, it should paste values below last name on employees...
Please advise.
And Note: it should past from row "6" in employee sheet.

Hi Thanks,

But when I try to have unique names pasted in sheet 7, it is not pasting... please let me know what is wrong in below code.


Private Sub CommandButton1_Click()
Dim alastrow As Long, blastrow As Long, clastrow As Long, k As Long, i, m, make As Long
Dim duplicate As Boolean

alastrow = Worksheets("EMP Date Specific").Range("A" & Rows.Count).End(xlUp).Row

make = Worksheets("Sheet11").Range("A" & Rows.Count).End(xlUp).Row

k = blastrow + 1
'copy names from sheet1 to sheet2, starting at first empty cell on sheet2
For i = 4 To alastrow
Worksheets("Sheet11").Range("A" & k).Value = Worksheets("EMP Date Specific").Range("A" & i).Value
k = k + 1
Next i


blastrow = Worksheets("PDR Date Specific").Range("B" & Rows.Count).End(xlUp).Row
k = blastrow + 1
'copy names from sheet1 to sheet2, starting at first empty cell on sheet2
For i = 4 To alastrow
Worksheets("PDR Date Specific").Range("B" & k).Value = Worksheets("Sheet11").Range("A" & i).Value
k = k + 1
Next i
blastrow = Worksheets("PDR Date Specific").Range("A" & Rows.Count).End(xlUp).Row 'to get row of new last value in sheet2
For i = 2 To blastrow 'to go through all names in sheet2
duplicate = False
clastrow = Worksheets("Sheet7").Range("A" & Rows.Count).End(xlUp).Row
If clastrow < 6 Then clastrow = 5
For k = 6 To clastrow 'to loop through Employees sheet
If Worksheets("PDR Date Specific").Range("B" & i).Value = Worksheets("Sheet7").Range("A" & k).Value Then
duplicate = True
GoTo dupe
End If
Next k
dupe:
If duplicate = False Then Worksheets("Sheet7").Range("A" & clastrow + 1).Value = Worksheets("PDR Date Specific").Range("B" & i).Value
Next i



End Sub