Как найти последнюю строку с заданным значением? - VBA

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

Здравствуйте! С Рождеством Вас! Пожалуйста помогите решить такую задачку: - Есть столбец с чередованием (подряд) одинаковых значений. Например слово "Один" повторяется 4 раза, слово "Два" - шесть раз и получается в столбце десять строк. Как найти номер последней строки для выбранного слова? Например, выбрав слово "Один" должно получится - 4, если выбрано слово "Два"- последняя строка -10. Заранее выражаю всем спасибо!

Решение задачи: «Как найти последнюю строку с заданным значением?»

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

                            Sub Sa1()
Dim col&, s$, c As Range
  s = "Один"  'искомое слово
  col = 1     'номер столбца
  Set c = Columns(col).Find(s, Cells(1, col), xlValues, xlWhole, , xlPrevious, False)
  If Not c Is Nothing Then MsgBox c.Row
End Sub
                        