Макрос для фильтрации строк в Excel - VBA

Формулировка задачи:

Помогите написать макрос в Worde Который должен как в екселя фильровать строки (результат фильтрации нужно переносить в другой документ). Т.е. нужно пройти по колонке (3). 1. Сначала наверное нужно сделать массив с уникальных записей по всей таблице. 2. Потом в цикле перебрать массив (копировать строку в другой документ или удалять те строки которые не равны определенному значению массива в цикле, перед этим конечно нужно скопировать всю таблицу в новый документ). Пустая строка которая записана перед строкой (которую нам нужно) не удалять. 3. Должно получиться столько файлов сколько уникальных записей в таблице. Надеюсь что правильно описал суть задачи, которую я не знаю с чего начать так как вообще не пробовал писать макросы в Ворде.

Решение задачи: «Макрос для фильтрации строк в Excel»

textual
                            Листинг программы 
                        

                            Dim A() As String
ReDim Preserve A(1 To numb)
    For i = 1 To numb
        A(i) = spisok(i)
    Next
With UserForm1.ListBox1
  .List = A
  .MultiSelect = fmMultiSelectMulti
End With
                        