quase isso...
na real achei uma solução bem simples...
Eu queria que continuasse na 1a. coluna, mas sem separar como normalmente ocorre no Office então fiz assim:
Workbooks.OpenText Filename:=endereco.SelectedItems(1), Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
E separei as colunas da forma que eu queria substituindo os espaços em branco por ";"
Columns("A:A").Select
Selection.Replace What:=" ", Replacement:=";", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
Meio bobo mas deu certo... hauhau
Abraço