Sub tt()
Dim sh As Worksheet
Dim iLastrow As Long
Dim i As Long
Set sh = Sheets( 1 )
iLastrow = sh.Cells(Rows.Count,  1 ).End(xlUp).Row
For i = iLastrow To  1  Step - 1 
If sh.Cells(i,  1 ) = "0" Then Cells(i,  1 ).EntireRow.Insert
Next i
End Sub

Sub tt()
Dim sh As Worksheet
Dim iLastrow As Long
Dim i As Long
Set sh = Sheets( 1 )
iLastrow = sh.Cells(Rows.Count,  4 ).End(xlUp).Row
For i = iLastrow +  1  To  4  Step - 1 
If sh.Cells(i,  4 ) = "" Then Cells(i,  1 ).EntireRow.Insert: Cells(i,  1 ).Value = "Total:"
Next i
End Sub

    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

Sub tt()
Dim sh As Worksheet
Dim iLastrow As Long
Dim i As Long
Set sh = Sheets( 1 )
iLastrow = sh.Cells(Rows.Count,  4 ).End(xlUp).Row
For i = iLastrow +  1  To  4  Step - 1 
If sh.Cells(i,  4 ) = "" Then Cells(i,  1 ).EntireRow.Insert: Cells(i,  1 ).Value = "Total:": Cells(i,  3 ).FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Next i
End Sub

Sub SumAndGrey()
Dim sh As Worksheet
Dim iLastrow As Long
Dim i As Long
Dim sumstart As Integer
Application.ScreenUpdating = False

Set sh = Sheets( 1 )

iLastrow = sh.Cells(Rows.Count,  1 ).End(xlUp).Row
For i = iLastrow +  1  To  3  Step - 1 
If sh.Cells(i,  1 ) <> "" Then
Range(sh.Cells(i,  1 ), sh.Cells(i,  8 )).Interior.ColorIndex =  48 

End If
Next i

iLastrow = sh.Cells(Rows.Count,  4 ).End(xlUp).Row
For i = iLastrow +  1  To  4  Step - 1 
If sh.Cells(i,  4 ) = "" Then
Cells(i,  1 ).EntireRow.Insert
End If
Next i

iLastrow = sh.Cells(Rows.Count,  4 ).End(xlUp).Row
For i = iLastrow +  1  To  4  Step - 1 
If sh.Cells(i,  1 ) = "" And sh.Cells(i,  2 ) = "" Then
Set tbl = Range(Cells(i -  1 ,  2 ), Cells(i -  1 ,  2 )).CurrentRegion
Cells(i,  1 ).Value = "Total": Cells(i,  3 ).FormulaR1C1 = "=SUM(R[-" & tbl.Rows.Count -  1  & "]C:R[-1]C)"
End If
Next i
Set tbl = Range(Cells( 2 ,  1 ), Cells( 2 ,  1 )).CurrentRegion
tbl.Offset( 1 ,  0 ).Resize(tbl.Rows.Count -  1 , _
tbl.Columns.Count).Select
Selection.EntireColumn.AutoFit

    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With


With Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns( 3 ))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=RC1=""Total"""
.FormatConditions( 1 ).Font.Bold = True
End With

Range("A1").Select
Application.ScreenUpdating = True
End Sub

    With ActiveSheet.Outline
'        .AutomaticStyles = True
        .SummaryRow = xlBelow
        .SummaryColumn = xlLeft
    End With
'    ActiveSheet.Outline.AutomaticStyles = True
    Selection.AutoOutline