Вернуть исходный вид таблицы

[agregator]

Всем здравствуйте. В отчете сначала идёт строка Гаражный номер: ХХ, далее идут строки с перечнем наименований МЦ (запчастей) и Итого по Гаражному номеру ХХ. Подскажите как макросом перед каждой наименованием МЦ проставить ХХ (гаражный номер) и удалить строки Гаражный номер: ХХ и строки Итого по Гаражному номеру ХХ.
Во вложении пример, что "Есть" и что "Надо".

[doober]

Sub KILLER()
Const prim As String = "Гаражный номер:"

Const second As String = "Итого по Гаражному номеру"

Dim flg1 As Boolean

Dim zam As String

    Columns(1).Insert
   Dim rng As Range
 Set rng = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
   For n = 1 To Cells(Rows.Count, 2).End(xlUp).Row
   If Cells(n, 2).Text Like "*" & prim & "*" Then
   flg1 = True
 
    Cells(n, 2).Interior.ColorIndex = 3
    zam = Replace(Cells(n, 2).Text, prim, "")
   End If
   
   If Cells(n, 2).Text Like "*" & second & "*" Then
    flg1 = False

    Cells(n, 2).Interior.ColorIndex = 3
   
   End If
   
   If flg1 = True Then
     Cells(n, 1) = zam
   
   End If
   
   Next
   
    Dim cell As Range
    Set ra = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
   For Each cell In ra.Cells
      
        If cell.Interior.ColorIndex = 3 Then
          
        Rows(cell.Row).Delete
                     
     End If
       
    Next cell
  
End Sub

[agregator]

Doober, большое спасибо, работает как надо.