Using VBA to create a unique list.

I have a list of names in a worksheet and I want to create a unique name list from this list on another sheet. I'm using the following code but it doesn't quite work. Any help please?

Option Explicit

Sub CreateUniqueList()
Dim lastrow As Long

lastrow = Cells(Rows.Count, "B").End(xlUp).Row

Worksheets("Weekly Archives").Range("B2:B" & lastrow).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=ActiveSheet.Range("H2"), _
Unique:=True

End Sub