Excel 2007 :: Error While Copying Extracted Text File Data?

I am trying to develop a code which extracts the data from text files inside a folder (Folder test in my desktop) into one sheet. The Macro is in the workbook “Text Extract” which is an excel 2007 file. The data of each text should be copied to Sheet1 of this workbook one below the other. For testing purpose I have kept only one text file in the folder and was trying to copy the data from the text data extracted sheet to Cell A1 of Sheet1 of workbook “Text Extract”. The code works fine till copying the data, but shows below error in the line “Selection.Paste”:

Run time error 438: Object doesn’t support this property or method.

Below is the code:
Sub LoopThroughFiles()
Dim strFile As String
Dim strPath As String

[Code]....