I don't know how to do the External data importing. Here is my code however:
Sub ImportTSOData()
Sheets("MFG_DIRECT").Select
Range("BY2").Select
myTSOFile = Application.GetOpenFilename("Text Files,*.*")
Workbooks.OpenText FileName:=myTSOFile, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array( _
3, 2), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1))
Selection.EntireRow.Delete
Selection.End(xlDown).Select
Selection.EntireRow.Delete
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.CurrentRegion.Select
' ActiveWorkbook.Names.Add Name:="DDATA", RefersToR1C1:= _
' "=MFG_DIRECT!R2C77:R3485C85"
Range("A1").Select
Sheets("PRINT").Select
ActiveWindow.ActivatePrevious
ActiveWindow.Close SaveChanges:=False
End Sub