Macro for save as as TXT

Hi,

I have use a macro to general text and add rows, but I would like to macro to also Save the result from excel to a text file. Can anyone help me to be able to automatically generate the .txt file into same directory after running the macro?
Also, when applying the first macro, is it possible to also do:
If character count is not 9 character, then add "_" underscore to data until it reaches 9 characters?

Here is the macro and the final text file that should be like;
HELP.xlsm

HELP.txt
Thanks anyone for help.