Dim objAD As Object, objUser As Object
    Dim mail As String
    
 
    Set objAD = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objAD.UserName)
    mail = objUser.EMailAddress
    UserEMail = LCase(mail)

Set create_collection = New Collection

Sub test()Dim a As New Collection

Set a = create_collection("Sales", "E")
MsgBox a.Count

End Sub

Function create_collection(ByVal page As String, ByVal column As String) As Collection  ' формирование массива уникальных элементов
 
'Объявляем переменные
'myRange - диапазон ячеек, заполненный исходным списком элементов
'myCell - отдельная ячейка диапазона
Dim myRange As Range, myCell As Range, LastRow As Long

Sheets(page).Select
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

'присваиваем переменной myRange диапазон ячеек с исходным списком элементов
Set myRange = Sheets(page).Range(column & "2").Resize(LastRow - 1, 1)

'заполняем новую коллекцию уникальными элементами
On Error Resume Next
For Each myCell In myRange
create_collection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell
On Error GoTo 0

End Function