Поиск названия столбца и его копирование - VB

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

Помогите пожалуйста, задача состоит в том, чтобы найти столбец по его заголовку и скопировать весь столбец на другой лист. Заголовки столбцов известны, но их количество может быть разным (могут добавиться новые). Искомое значение вводится в ячейку. Проблема заключается в том, что заголовок столбца это объединенная ячейка (группа), под которой есть 3 столбца. Из этих 3х столбцов копируется второй.

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

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

                            Sub bb()
Dim c As Range
Set c = Rows(2).Find(Range("A13").Value, , xlValues, xlWhole)
If c Is Nothing Then
    Stop 'заголовок не найден
Else
    c.Copy Sheets("Лист2").Range("B1")
    Set c = Cells(c.Row + 1, c.Column + 1)
    Range(c, c.End(xlDown)).Copy Sheets("Лист2").Range("B2")
End If
End Sub

                        