paste source filepath information to destination book (code included)

I have a workbook with the following code. The backdrop is that I have another VBA code that prompts the user to select a raw data source file (all in one folder) to upload to the destination book. Once uploaded the destination book runs macros to calculate the data. This piece works great. However, my problem lies in the code below (brand new code, to me). This code is supposed to paste the file name (into "AI1) and date/time last modified (into "AJ1") from the specific source sheet selected by the user, into the sheet where the raw data is uploaded in the destination book. What the code below is doing is pasting the file name and date/time modified information (great) for ALL of the files in my "Data Source" folder. By the way, I'm a VBA novice. I cannot figure out how to have this code paste these two pieces of information (FILE NAME and DATE/TIME MODIFIED) for only the file selected for upload into the destination. Any clues? Thank you.

Filepath copy/paste code (pastes all files in the folder -- not desired)

Please Login or Register  to view this content.

Hi Solus.
Yes to both questions. I want the name and last modified date for one file -- a file that will be selected from a single folder by the user. However, the name and last modified date could be placed on the source file, after which I will simply pull it from those two cells (e.g., A1 = file name / A2 = last modified). And, yes, I'm out of my league on this piece of code. I thought this would be more common than it appears to be.
Thank you very much for thinking through my challenge.
Regards, Jeff

By the way, what I'm using now is the following code; however, that gives me the date/time that the data was uploaded into the destination sheet. I'm pasting this upload date/time to the source sheet and then pulling it into the destination. That sequence works fine for me; however, I need the date/time modified info, rather than the upload info. Thanks again.

This is a much better solution, Solus! It's tight and it works. Thank you so much. It's greatly appreciated. Have a nice day.