Цикл по колонке содержащей объединенные ячейки - VBA

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

Доброе время суток! Собственно в названии темы все показано, но я повторюсь. Как пройтись циклом по всей колонке? Я пишу такой код, но он доходит до первой соединенной ячейки и останавливается

Sub Кнопка_Поиск()
    Dim CountRow As Integer
    CountRow = Range("A1").End(xlDown).Row
    For i = 1 To CountRow
        If Cells(i, 1).Value = "Итого" Then
            MsgBox ("Stoka = " & i)
        End If
    Next i
End Sub

Решение задачи: «Цикл по колонке содержащей объединенные ячейки»

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

                            Sub tt()
    Dim cc As Range
    For Each cc In UsedRange.Columns(1).Cells
        If cc.Value = "Итого" Then MsgBox ("Stroka = " & cc.Row)
    Next
End Sub
                        