Macro to sort Files with file extension

Hello,

I have sheet a with 46 rows and 1110 columns(this might vary). The cells contain filenames with various file extensions like .zip, .tif, .exe etc.,

Given a row, I need a VBA macro that can search and copy the .zip filename from anywhere in the row and paste it on the 1st row. The filename in the 1st row can be pasted on that cell where the .zip was present previously.

Any help greatly appriciated.

Regards,

Tanya