FileNames in folder to Cells with Macro

I wonder if there is a macro, which can search and fill in collums by file extention in a selected folder and subfolders of the selected folder?
In this case, it lists all Solidworks Filenames in 1st collumn, and in 2nd and 3rd collumn it fills .pdf and .dxf extention names of files that have at least part of FileName in their names?

Screenshot_1.jpg

Screenshot_2.jpg