Поиск "правильного" столбца - VB

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

Всем привет!
Пишу небольшой макрос поиска данных на листе. Суть такова, есть шапка с ключевыми словами, я ищу номера столбцов. Все работает до тех пор когда Шапка = значению. Если ячейка (шапки) объединена, а значения нет, то, что естественно, происходит смещение. Пример на картинке. Поиском нашел, что Сумма это столбец 2, а по факту значения в столбце 4. Может кто сталкивался с таким. Или есть элегантное решение.

Решение задачи: «Поиск "правильного" столбца»

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

                            Sub bb()
Dim c As Range
  Set c = Rows(1).Find("сумма", , xlValues, xlPart)
  If c Is Nothing Then Exit Sub
  Set c = c.Offset(1).Resize(, c.MergeArea.Columns.Count).Find("*")
  If Not c Is Nothing Then MsgBox "числа в столбце " & c.Column
End Sub

                        