Copy, Paste and remove duplicates

[gemini528]

I have two sheets on Excel and I need help for a VBA code tocopy the data from the DATA sheet to the DEDUP sheet, removed duplicate andsorted. Macro is triggered when DEDUP sheet is activated.<o></o>
<o> </o>
Sheet 1 named “DATA” and it has the data starting from column F8, (F7 is the heading)<o></o>
Sheet 2 names “DEDUP”, in this sheet the dedup and sorteddata will be copied starting at N12, (N11 is the heading)<o></o>
<o> </o>
I need help guys. Thanks a lot in advance.<o></o>

 

[Steveie]

Hi try the below code, amend ranges as required:

Sub test()'
' test Macro
'


'
Sheets("DEDUP").Select
Range("N12:N1000").Select
Selection.ClearContents
Sheets("DATA").Select
Range("F8:F1000").Select
Selection.Copy
Sheets("DEDUP").Select
Range("N12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$N$11:$N$1000").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

Not too sure about it running when the sheet is activated but you can Google it and find it.

Thanks