Umm lets make this easier on you
Change Range("B4") = sFileName to ActiveCell.Value = sFilename
This will make the current cell be what has the filename added.
Next lets create a short-cut I am going to use Ctrl+W
Go to developed tab, click macros, click our new macro, options, set shortcut to Ctrl+W