You can import it into a new worksheet and then delete the new worksheet after you copy/paste the specified rows. Something like this:
Sub Import_Rows()
Dim myRows, myWksht As String
myRows = "A1,A4,A7" 'Your rows to copy (1,4,7 shown here)
myWksht = "Sheet1" 'Your worksheet to paste values into
Application.ScreenUpdating = False
iLastRow = ActiveWorkbook.Worksheets(myWksht).Range("A" & Rows.Count).End(xlUp).Row + 1
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\YourFileFolder\YourFileName.txt" _
, Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1251
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveSheet.Range(myRows).EntireRow.Copy
ActiveWorkbook.Worksheets(myWksht).Range("A" & iLastRow).PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Hope that helps.
Bookmarks