"Fred" wrote...
You could also simply use the following code after export:

Range("A:A").SpecialCells(xlCellTypeBlanks).Entir eRow.Delete

It deletes all the rows in which the cells in column A are blank.
...

True, but simple interactive approaches are also handy. My sorting approach
isn't optimal. Better would be inserting a row (a blank row) above the .TXT file
data, selecting the entire worksheet, running Data Filter AutoFilter,
selecting (Blank) in the column A dropdown, pressing [Shift]+[SpaceBar] to
select entire rows, then Edit Delete to delete the rows in which column A is
blank.

Note that the approach above isn't general. If CSV or any other form of
structured text files with delimited fields had empty first fields but nonempty
subsequent fields, this approach would delete such records/rows. The sorting
approach I suggested guards against that possibility.

--
To top-post is human, to bottom-post and snip is sublime.