re-record (record again) your macro and choose delimited (first dialog)
rather than fixed width with space as the delimiter and select to treat
multiple delimiters as 1 (second dialog)

Make Joel's adjustment to this newly recorded code.

--
Regards,
Tom Ogilvy


"WAMTC" wrote:

Joel
I tried it be see below for results:
Txt2Col = 10 34 357 24 415 703 59 2,292
Results when macro runs
B16 10
C16 34
D16 357
E16 2
F16 4 4
G16 15 7
H16 3
I16 59 2,292
Columns B C D E & H are right hand oriented like numbers would be
Columns F G & I are left hand oriented like letters would be
Would them all to be numbers
Thx again
Rick


"Joel" wrote:

Sub Txt2Table()
€˜
€˜ Txt2Table Macro
€˜ Macro recorded 8/7/2007
€˜
€˜ Keyboard Shortcut: Ctrl+t
€˜
Selection.TextToColumns Destination:= _
Range(€œB" & Activecell.row), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), _
Array(6, 1), Array(9, 1), Array(11, 1), _
Array(14, 1), Array(18, 1), Array(21, 1))
End Sub

"WAMTC" wrote:

Below is macro that I €œmade€� using the Tools/Marco/Record New Macro. When I
move to next row (8 36 120 24 180 1,438 13 7,063) and press Ctrl+t I get msg
€œDo you want to replace the contents of the destination cells?€�, ok/cancel
and select ok the data is placed in row 8 not current row.
Question €“ How do I get macro to put data in current/active row? I will move
to next row manually unless there is an easy way to move to next after macro
runs.
Thanks
Rick

Sub Txt2Table()
€˜
€˜ Txt2Table Macro
€˜ Macro recorded 8/7/2007
€˜
€˜ Keyboard Shortcut: Ctrl+t
€˜
Selection.TextToColumns Destination:=Range(€œB8€�),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(6, 1), Array(9, 1),
Array(11, 1), _
Array(14, 1), Array(18, 1), Array(21, 1))
End Sub

Hope I explained problem and what I am trying to do.
Thx
Rick