Need to list files extension in like (*.eps, *.tif, *.jpeg) in provided path (any)

and add header above the list files as "Find" in Cell "A1" and "Change" in Cell "B1"

after that insert formula in Change Cell "A2", "A3", ... etc.

this formula to be insert: =INDEX({"IFig";"SFig";"Fig";"CFig"},MATCH(MID(LEFT (B3,FIND(".",$B3)-1),10,1),{"a";"s";"f";"c"},0)) & VALUE(MID(LEFT(B3,FIND(".",$B3)-1),11,2)) & MID(LEFT(B3,FIND(".",$B3)-1),13,99)