Sub StartEnd()
Dim iLastRow As Long
Dim FoundCell As Range
Dim FRow As Long
Dim ERow As Long
Dim j As Integer
  Rows(27).ClearContents
 For j = 1 To 9 Step 4
   iLastRow = Cells(Rows.Count, j).End(xlUp).Row
  With Range(Cells(1, j), Cells(iLastRow, j))
    Set FoundCell = .Find("0", , xlValues, xlWhole)
       FRow = FoundCell.Row
         Set FoundCell = .FindNext(FoundCell)
       ERow = FoundCell.Row
       Cells(27, j + 2) = WorksheetFunction.Sum(Range(Cells(FRow, j + 2), Cells(ERow, j + 2)))
  End With
 Next
End Sub