Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim iBegin As Long
Dim iEnd As Long
Dim n As Integer
    iLastRow = Cells(Rows.Count, "F").End(xlUp).Row
    Range("G2:H" & iLastRow).ClearContents
    iBegin = 2
  For i = 2 To iLastRow
      n = 0
      iEnd = iBegin
    Do While Cells(iEnd + 1, "A").IndentLevel = 4 And iEnd <= iLastRow
      iEnd = iEnd + 1
      n = n + 1
    Loop
      Cells(iBegin, "G") = n
      Cells(iBegin, "H") = WorksheetFunction.Sum(Range(Cells(iBegin + 1, "F"), Cells(iEnd, "F")))
      Cells(iBegin, "H").NumberFormat = "#,##0.00"
    iBegin = iEnd + 1
    i = iEnd + 1
  Next
End Sub