Sub www()  
   Dim a As Range, i&  
   Application.DisplayAlerts = 0  
   Application.ScreenUpdating = 0  
   On Error Resume Next  
   With Range("A2").CurrentRegion  
       .RemoveSubtotal  
       .Subtotal 3, xlSum, Array(10)  
       For Each a In .Columns(2).SpecialCells(2).Areas  
           If a.Count > 1 Then  
           Set a = a.Offset(, -1)  
               For i = 4 To 0 Step -1  
                   a.Offset(, i).MergeCells = True  
               Next  
           End If  
       Next  
   End With  
   Range("A2").CurrentRegion.RemoveSubtotal  
   Application.DisplayAlerts = -1  
End Sub

Вариант - сводная, а если XL-2010, то тем более... ;)  
-98041-

сводная в данном случае не то. надо чтобы четко было видно, что объединенные ячейки связанны с группой необъединеных, = таблицу надо будет распечатываьь.  
 
вариант KukLP именно то что надо, тока проблемка в том, что он заодно объединяет ячейки и в первых двух строках.  
 
помогите пожалуйста

прикладываю  
 
на лист2 результат после макроса. желтым я выделил ненужное объединение  
на лист3 до макроса. зеленым указал то что теряется после макроса.

{quote}{login=burzuy}{date=05.02.2012 06:01}{thema=}{post}прикладываю{/post}{/quote}  
А куда макрос дели?.. А сводную еще надо уметь употреблять... ;)  
2 KukLP: ошибку НЕ подтверждаю - XL-2010 SP1, все идет по хотелке.  
-65201-

пардон выкладываю с поддержкой макроса

{quote}{login=burzuy}{date=05.02.2012 06:20}{thema=}{post}пардон выкладываю с поддержкой макроса{/post}{/quote}  
Все, как заказывали - XL-2010 SP1 - хоккей! И Макрос1, и макрос www? даже из других книг. Ищите бяку у себя... :)  
-77529-