Hi, experts
so I have this code works very well to delete duplicated data in COL A,B,C after copy from sheet1 to sheet2 but my question is if I have many columns about 20 or more in sheet1 then I have to increase two lines code each column and then the macro when wrriting it takes more time and will be containing many lines so if there is way to make the code shorter when I have much columns then it will save for me much time
Private Sub Worksheet_Activate()
sheet1.Range("A2", sheet1.Range("A" & Rows.Count).End(xlUp)).Copy sheet2.Range("A" & Rows.Count).End(xlUp)(2)
sheet2.Range("A2", sheet2.Range("A" & Rows.Count).End(xlUp)).RemoveDuplicates 1
sheet1.Range("b2", sheet1.Range("b" & Rows.Count).End(xlUp)).Copy sheet2.Range("b" & Rows.Count).End(xlUp)(2)
sheet2.Range("b2", sheet2.Range("b" & Rows.Count).End(xlUp)).RemoveDuplicates 1
sheet1.Range("c2", sheet1.Range("c" & Rows.Count).End(xlUp)).Copy sheet2.Range("c" & Rows.Count).End(xlUp)(2)
sheet2.Range("c2", sheet2.Range("c" & Rows.Count).End(xlUp)).RemoveDuplicates 1
End Sub