Sub test()

Application.ScreenUpdating
= False

lrow =
Cells(Rows.Count, 1).End(xlUp).row

    For I = lrow To 2 Step -1

        If Cells(I, 2) = 1 Then Rows(I).Insert

    Next I

Application.ScreenUpdating
= True

End Sub

Sub
iSumma()

Dim Rng
As Range

Dim j As
Integer

For j =
10 To 27

 If j = 10 Or j = 11 Or j = 27 Then

   For Each Rng In
Columns(j).SpecialCells(xlCellTypeConstants).Areas

     Rng.Cells(Rng.Count + 1, 1).Value =
WorksheetFunction.Sum(Rng)

     Rng.Cells(Rng.Count + 1, 1).Font.Bold =
True

     Rng.Cells(Rng.Count + 1,
1).Interior.ColorIndex = 6

   Next

 End If

Next

End Sub