Hi Steven,

Thank you so much for your reply. Late last evening I actually made it work using the following:


'   Copy all and remove duplicates
    Range("B2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("M1").Select
    ActiveSheet.Paste
    Columns("M:N").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$M$1:$N$1000000").RemoveDuplicates Columns:=2, Header:=xlNo
It is definately not the most effective way but for my purpose it works fine

Thank you!

Joakim