Is there a way to tell this macro to open in cell A6 and to preserve the
formatting of the worksheet?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/13/2009
'

'
Workbooks.OpenText Filename:= _
"\\admis.adm\kcdfs\kcusers\A829917\My Documents\Seg Positions.txt",
Origin:= _
xlWindows, StartRow:=6, DataType:=xlFixedWidth,
FieldInfo:=Array(Array(0, 1), _
Array(10, 1), Array(16, 1), Array(41, 1)), TrailingMinusNumbers:=True
End Sub