here is my code before putting in what you have
Option Explicit
Sub MacroCopyTputReport()
Dim NextRow As Long
Dim sNextCell As String, astatfile As String, sDestFile As String, sDestTab As String
Dim NextCell As Range
Dim DestFile As Workbook, SourceFile As Workbook
Dim DestTab As Worksheet, SourceTab As Worksheet
Set DestFile = ActiveWorkbook
Set DestTab = DestFile.ActiveSheet
'Set DestTab = DestFile.Sheets(DestFile)
astatfile = Application.GetOpenFilename
Workbooks.OpenText Filename:=astatfile, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1)) '' open txt file with excel 2000
Range("A1").Select
Set SourceFile = ActiveWorkbook
Set SourceTab = ActiveSheet
Range(Selection, Selection.End(xlDown)).Select '' cntl+shift down
Selection.Copy ' copy source data
' go back to excel sheet to paste
DestFile.Activate '' go back to xcel sheet to paste
DestTab.Select '' select destination sheet
' loop to find 1st blank cell in column A
'If Empty Then
'Range("A1").Select ' vai file
'ActiveCell.Paste
'Else
'NextRow = Range("A" & Rows.Count).Home(xlDown).Row + 1
'sNextCell = "A" & Rows.Count
'sNextCell = "A31"
'Range("A31").Select ' this is where the macro will paste the report values.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '' paste values only
'End If
SourceFile.Close False '' Close the book containing the text file.
End Sub