Подсчет количества повторений одинаковых значений - VB

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

Доброго времени суток!
Задача такова-
1) из некоторого word.doca делают экспорт таблиц с данными (интересует столбец с фамилиями) в exel.doc макросом;
2) в полученном exel.doce выполняю макрос, который выбирает все значения из поля с фамилиями и размещает их на листе екселя.
Проблема:
Как подсчитать теперь количество повторений одинаковых фамилий?
Заранее благодарен

Решение задачи: «Подсчет количества повторений одинаковых значений»

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

                            <font color="blue">Sub</font> Value_Count()

<font color="blue">Dim</font> ir <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Dim</font> iSource <font color="blue">As</font> Range
iLastCell = Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).SpecialCells(xlLastCell).Row
<font color="blue">Set</font> iSource = Range(Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>), Cells(iLastCell, <font color="darkblue"><b>1</b></font>))
ir = <font color="darkblue"><b>1</b></font>
 <font color="blue">For</font> <font color="blue">Each</font> Cell <font color="blue">In</font> iSource
  iText = Cells(ir, <font color="darkblue"><b>1</b></font>).Value
  iCount = Application.WorksheetFunction.CountIf(iSource, iText)
   Cells(ir, <font color="darkblue"><b>2</b></font>).Value = iCount
  ir = ir + <font color="darkblue"><b>1</b></font>
 <font color="blue">Next</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        