Try this...
<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> f <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Variant</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> a <SPAN style="color:#00007F">As</SPAN> Workbook
<SPAN style="color:#00007F">Dim</SPAN> w <SPAN style="color:#00007F">As</SPAN> Workbook
<SPAN style="color:#00007F">Sub</SPAN> GetFile()
<SPAN style="color:#00007F">Set</SPAN> a = ActiveWorkbook
<SPAN style="color:#007F00">' User can choose the .asc file to use</SPAN>
f = Application.GetOpenFilename("All Files (*.*),*.*")
<SPAN style="color:#007F00">' Open & import data and rename sheet</SPAN>
<SPAN style="color:#00007F">If</SPAN> f <> <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>
Workbooks.OpenText FileName:=f, Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=<SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">Set</SPAN> w = ActiveWorkbook
w.Sheets(1).Name = "data"
<SPAN style="color:#007F00">' Copy data into main sheet & close other sheet</SPAN>
w.Sheets(1).Copy After:=a.Sheets(a.Sheets.Count)
w.<SPAN style="color:#00007F">Close</SPAN> SaveChanges:=<SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">Set</SPAN> w = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Set</SPAN> a = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>