Sub bb()
Dim a As Range
  For Each a In Columns(2).SpecialCells(xlCellTypeConstants).Areas
    a.Cells(2, 0).Value = WorksheetFunction.Sum(a)
  Next
End Sub

Sub bb()
Dim a As Range
  For Each a In Columns(2).SpecialCells(xlCellTypeConstants).Areas
    With a.Cells(2, 0)
      .Value = WorksheetFunction.Sum(a)
      .interior.color=vbyellow
    End with
  Next
End Sub

Sub bb()
Dim a As Range
  On Error Resume Next
  With Columns(2)
    Set a = .SpecialCells(xlCellTypeConstants)
    If a Is Nothing Then
      Set a = .SpecialCells(xlCellTypeFormulas)
    Else
      Set a = Union(a, .SpecialCells(xlCellTypeFormulas))
    End If
  End With
  For Each a In a.Areas
    With a.Cells(2, 0)
      .Value = WorksheetFunction.Sum(a)
      .Interior.Color = vbYellow
    End With
  Next
End Sub