VBA code nodig

[luitgapj]

Hallo,

ik heb een excel sheet (Blad1) met in kolom A getallen, eerste getal staat in cel A3.
deze getallen mogen niet wijzigen, dus wil deze copy/paste naar Blad2 cel A1
gezien het mogelijk is dat er dubbele getallen in deze kolom staan wil ik daarna kolom A op Blad2 ontdubbelen.

Weet iemand hier een goede vba code voor.

toegevoegd een

 

[Conseclusie]

Sub Macro1()
Sheets("Blad2").Range("A1:A10000").Value = Sheets("Blad1").Range("A3:A10003").Value
Sheets("Blad2").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub