In that case, try this macro after selecting the cells you want totalled
Code:
Sub CountNums()
Dim lngCount As Long: lngCount = 0
Dim oRng As Range
For Each oRng In Selection.Areas(1)
lngCount = lngCount + Split(oRng.Value, " ")(0)
Next oRng
MsgBox "The first numbers add up to: " & lngCount
End Sub