Excel VBA导出到文本文件。需要删除空白行

I have a workbook that I export to a text file using the below script. It works fine but when I open the text file there is always a blank line at the end that caused me issues with another script I run after I generate this text file. Any help at all on how I can remove the blank line from my export. I have a workbook that I export to a text file