Макрос копирование ячеек при условии жирного шрифта

[АннаСаратов1994]

Друзья, слезно прошу помочь... Самостоятельно не получается, все форумы и сайты пролазила, не нашла ни чего подобного...

Есть, Excel-кая выгрузка из ПО организации, с перечислением должностей в отдел/секторах:
Отдел1
Должность1
Должность n
Сектор 1
Должность1
Должность n
Сектор 2
Должность1
Должность n

Название должностей отличается от название отделов/секторов только размером и жирным шрифтом.
Как в столбец слева повытягивать название долностей и протянуть напротив сотрудников,которые работают в данном подразделении...
Осложняет проблемы название сектора может стоять как в одном столбце с должностями, так и столбце справа...

Помогите, пожалуйста!
Работ горит, а я уже день потеряла, но сама не осилила написание...

Файл,как пример,прилагаю!

[АннаСаратов1994]

По причине конф. защиты, ехсель файл не пропускают... скину пример как картинку

[DiemonStar]

запакуйте файл в архив и выложите архив.

[АннаСаратов1994]

буду вам очень благодарна за любую помощь...

[kuklp]

Почему у Вас сектора скачут по столбцам?

[Hugo121]

Выделить B2:B10, выполнить код:

Sub tt()
    Dim c As Range
Application.ScreenUpdating = False
    For Each c In Selection.Cells
        If c.Font.Bold = False And c.Offset(, 1).Font.Bold = False Then
            With c.Offset(, -1)
            Select Case True
            Case Len(c.Offset(-1, -1)): .Value = c.Offset(-1, -1)
            Case Len(c.Offset(-1, 0)): .Value = c.Offset(-1, 0)
            Case Len(c.Offset(-1, 1)): .Value = c.Offset(-1, 1)
            End Select
            .Font.Bold = True
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub

[АннаСаратов1994]

Не знаю - так выгружается из ПО.

Но это уже не проблема, я смогу отфильтровать и скопировать сектора в общий столбец.

Задача одна - чтобы протягивались сетора по отдному столбцу напротив должностей....

Сейчас я прихожу к очень длинному решению проблемы- формотирую всё в ручную, макросами по удалению привожу к нормальному виду (под нормальным видом подразумеваю те данные, с которыми обратилась), а потом копирую данные в прикрепленный документ и уже там "настраиваю"... как написан прикрепленный докмуент - не могу понять.... Хотелось бы всё делать в одном документе, а не "городить" огромный путь в достижение информации дл анализа...

[АннаСаратов1994]

Hugo121, Огромное спасибо! только можно последний вопрос - как сделать, чтобы распространялось на весь столбец.. у меня макрос выполнятся только в одной ячейке (хотя я выделяла весь столбец при написании... 100%,чтот о делаю так..) Извините,что обращаюсь с таим глупым вопросом... Еще раз огромное спасибо за макрос!

[Hugo121]

Не понимаю... Я делал точно как написал - выделил в примере B2:B10, выполнил код, всё заполнилось.

[АннаСаратов1994]

Hugo121, можно Вас попросить прикрепить архив с макросом... не получается....