How about you select several of those cells on the Worksheet, Copy them, then Paste them here, so we don't have to switch back and forth from Excel to Firefox typing them all in ourselves.
In the meantime, see if this gives you any ideas
Sub t()
Dim Cel As Range
For Each Cel In MyRange 'Define the range of cells you want
For i = 1 To 10 'Assumes max number spaces in a row is 10
'Get rid of all Multiple Spaces
Cel = Replace(Cel, " ", " ")
Next
msgBox Cel.Address 'Which cell are we operating on ATT
MsgBox CDble(Split(Cel, " ")(4)) 'Adjust "4" to suit
Next
End Sub