Populating a list box with unique values from a column

Private Sub UserForm_Initialize()
Dim a, e
With Sheets("YourShetNameHere") '<- alter to suite
    a = .Range("a1", Range("a" & Rows.Count).Enc(xlUp)).Value
    ' change "a1"/ "a" to appropreate column reference
End With
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For Each e In a
        If (Not IsEmpty(e)) * (Not .exists(e)) Then .add e, Nothing
    Next
    Me.ListBox1.List = .keys
End With
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer, n As Integer, a() As String
With Me.ListBox1
    If .ListIndex = -1 Then Exit Sub
    ReDim a(1 To .ListCount, 1 To 1)
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            n = n + 1 : b(n,1) = .List(i)
        End IF
    Next
End With
Sheets("YourSheetNameHere").Ragne("YourRangeHere").Resize(n).Value = a '<- fixed
End Sub

Sub Macro1()
Dim fromList As Range
Dim toPlace As Range
Dim dataRange As Range
Dim selectedCount As Long, i As Long

Set fromList = ThisWorkbook.Sheets(1).Range("A:A")
Set toPlace = ThisWorkbook.Sheets(2).Range("a1")
Set dataRange = fromList.Parent.UsedRange

Set toPlace = toPlace.Range("a1"):Rem adjust toPlace above, not here.
toPlace.Value = fromList.Range("a1").Value
With UserForm1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            selectedCount = selectedCount + 1
            toPlace.Offset(selectedCount, 0) = "'=" & .List(i)
        End If
    Next i
End With
dataRange.AdvancedFilter Action:=xlFilterCopy, _
                          CriteriaRange:=toPlace.Resize(selectedCount + 1, 1), _
                          CopyToRange:=toPlace, Unique:=False
End Sub