Macro to load text file not working.

Hi,

I need to load a text file into an excel, but to paste all only in the column A and not having to split them out to other column.

Here are the sample files:
HELP.xlsm
HELP.txt

If anyone can tell me where is wrong?

Thanks.