Sub iSumma()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To iLastRow
    Cells(1, 1) = Cells(1, 1) + Val(Cells(i, 1))
  Next
End Sub

Public Function replSum(ByVal iRange As Range) As Double
    Dim r As Range
    Dim tmp$, i%
    For Each r In iRange
        tmp$ = r.Value
        Do While tmp$ Like "*[!0-9?]*"
            i% = i% + 1
            If Not VBA.IsNumeric(VBA.Mid(tmp$, i%, 1)) Then tmp$ = VBA.Replace(tmp$, VBA.Mid(tmp$, i%, 1), "?")
        Loop
        i% = 0
        tmp$ = VBA.Replace(tmp$, "?", "")
        replSum = replSum + tmp$
    Next
End Function