VBA script to import text data in the first empty column of a range

Hello to all of you,
I created a VBA script to import a text file in a specif spreadsheet columns range (AK5:AR44) and I would like to make it more efficient with following modifications for which I may need your help:

Use as Destination:=Range the first empty column in the predefined range
Create a sort of loop, after each file is imported, using a pop up window, user should be able to decide whether to import another file to the first new empty column or to stop the import.
Below the code I have create until now, unfortunalety I wasn't able to add a sort of dynamic destination for the newly imported data.
Thanks in advance for your help.

Please Login or Register  to view this content.

Please Login or Register  to view this content.