Function SOM#(c As Range)
Application.Volatile
Dim decal, derlig&, x$
decal = 16
derlig = c.Parent.UsedRange.Row + c.Parent.UsedRange.Rows.Count
Do
x = CStr(c)
If IsNumeric(x) Then SOM = SOM + CDbl(x)
Set c = c.Offset(decal)
Loop While c.Row < derlig
End Function