You can use this macro.

Sub extractlastcol()
For Each c In Range("a2:a161") 'Selection
x = Right(c, InStr(3, c, " "))
If IsNumeric(x) Then c.Offset(, 1) = x
Next
End Sub
--
Don Guillett
SalesAid Software

"fil" wrote in message
...
In Excel 2000 I downloaded my annual TD Waterhouse
satement. It all downloads to one cel and trying to get
just the last column into a susable for and separate it
into a single column of its own is difficult. Thewre must
be a simple way. Is here someone who might be able to
talk back and forth with me to resolve?

Thanks,

Fil