Если макрос по каким-то причинам не подходит, можно так:  
скопировать любой столбец и рядом с таблицой сделать специальную вставку -> формат. Потом выделить этот отформатированный столбец, нажать Ctrl+H -> параметры -> Формат (найти) -> выбрать полужирный -> Заменить на: любой_символ.  
В результате этого появится столбец, в котором в жирных строках будет этот символ. Далее - фильтр...

Sub pp()  
Dim il As Long ' объявляем переменные  
Dim sh As Worksheet  
Dim i As Long  
Application.ScreenUpdating = False ' отключаем тормоза  
Set sh = Sheets("Отчет") ' присваиваем листу 5 псевдоним  
il = sh.Cells(Rows.Count, 1).End(xlUp).Row 'находим последнюю заполненную строку на листе Отчет  
For i = 3 To il ' цикл от 3ей до последней строки  
If Not sh.Cells(i, 1).Font.Bold Then ' если ячейка (строки i столбца 1) не имеет жирный фон то  
sh.Cells(i, 1).EntireRow.Hidden = True ' строку содержащую эту ячейку скрываем  
End If  
Next i ' переходим к следующей ячейке  
Application.ScreenUpdating = True  
End Sub

{quote}{login=Dophin}{date=17.05.2010 04:32}{thema=}{post}Sub pp()  
Dim il As Long ' объявляем переменные  
Dim sh As Worksheet  
Dim i As Long  
Application.ScreenUpdating = False ' отключаем тормоза  
Set sh = Sheets("Отчет") ' присваиваем листу 5 псевдоним  
il = sh.Cells(Rows.Count, 1).End(xlUp).Row 'находим последнюю заполненную строку на листе Отчет  
For i = 3 To il ' цикл от 3ей до последней строки  
If Not sh.Cells(i, 1).Font.Bold Then ' если ячейка (строки i столбца 1) не имеет жирный фон то  
sh.Cells(i, 1).EntireRow.Hidden = True ' строку содержащую эту ячейку скрываем  
End If  
Next i ' переходим к следующей ячейке  
Application.ScreenUpdating = True  
End Sub{/post}{/quote}  
 
Теперь возник вопрос: помогите организовать процесс хранения этого макроса, чтобы при выгрузке такого файла из программы, любой бухгалтер самостоятельно мог запустить по необходимости у себя на ПК этот макрос. Спасибо.