why this code is showing in red any one correct this

[Prasad K]

any one correct this code

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet1.Range("A2:A" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row).Copy _Destination:=Sheet2.Range("A2:A" & Rows.Count).End(xlUp).Offset(1, 0)
Sheet2.Range("A2", Sheet2.Range("A" & Rows.Count).End(xlUp)).RemoveDuplicates 1
End Sub

 

[Michael M]

Try

Sheet1.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sheet2.Range("A2:A" & Rows.Count).End(xlUp).Offset(1, 0)
Sheet2.Range("A2", Sheet2.Range("A" & Rows.Count).End(xlUp)).RemoveDuplicates 1

 

[Prasad K]

Try

Sheet1.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sheet2.Range("A2:A" & Rows.Count).End(xlUp).Offset(1, 0)
Sheet2.Range("A2", Sheet2.Range("A" & Rows.Count).End(xlUp)).RemoveDuplicates 1

Thank you it's working perfectly & one more small change in this code remove duplicates on entire row in sheet2

 

[Prasad K]

Thank you it's working perfectly & one more small change in this code remove duplicates on entire row in sheet2

remove entire row in sheet2

dup.xlsm
	A	B	C	D
1	Emp id	Emp Name	Emp Gender	Emp Salary
2	101	anil	male	12000
3	102	arun	male	12000
4	103	swetha	female	12000
5	101	anil	male	12000
Sheet1

dup.xlsm
	A	B	C	D
1	Emp id	Emp Name	Emp Gender	Emp Salary
2	101	anil	male	12000
3	102	arun	male	12000
4	103	swetha	female	12000
5		anil	male	12000
Sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheet1.Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sheet2.Range("A2:D" & Rows.Count).End(xlUp).Offset(1, 0)
Sheet2.Range("A2", Sheet2.Range("A" & Rows.Count).End(xlUp)).RemoveDuplicates 1
End Sub

 

[Prasad K]

remove entire row in sheet2

dup.xlsm
	A	B	C	D
1	Emp id	Emp Name	Emp Gender	Emp Salary
2	101	anil	male	12000
3	102	arun	male	12000
4	103	swetha	female	12000
5	101	anil	male	12000
Sheet1

dup.xlsm
	A	B	C	D
1	Emp id	Emp Name	Emp Gender	Emp Salary
2	101	anil	male	12000
3	102	arun	male	12000
4	103	swetha	female	12000
5		anil	male	12000
Sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheet1.Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sheet2.Range("A2:D" & Rows.Count).End(xlUp).Offset(1, 0)
Sheet2.Range("A2", Sheet2.Range("A" & Rows.Count).End(xlUp)).RemoveDuplicates 1
End Sub

Egnore this i got answer to delete entire row in sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheet1.Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sheet2.Range("A2:D" & Rows.Count).End(xlUp).Offset(1, 0)
Sheet2.Range("A2", Sheet2.Range("D" & Rows.Count).End(xlUp)).RemoveDuplicates 1
End Sub