Форум по VBA и MS Office

Sub макрос()

    Dim cln As Collection
    Dim i As Long
   
   
    ' Создание коллекции.
    Set cln = New Collection
   
    ' Запись в коллекцию данных из экселя.
    For i = 4 To 15
        cln.Add Item:=Cells(i, "B").Value
    Next i
   
End Sub