'prompt user to select a file to embed (change the filter accordingly)
Dim openFilename As Variant
openFilename = Application.GetOpenFilename( _
FileFilter:="Files (*.jpeg;*.doc;*.pdf), *.jpeg;*.doc;*.pdf", _
Title:="Select File", _
ButtonText:="Select")
'if user cancels, exit the sub
If openFilename = False Then Exit Sub
'get the database sheet (change the name accordingly)
Dim databaseSheet As Worksheet
Set databaseSheet = ThisWorkbook.Worksheets("Database")
'embed the selected file on the database sheet and position it at cell B2
databaseSheet.OLEObjects.Add _
filename:=openFilename, _
Left:=databaseSheet.Range("B2").Left, _
Top:=databaseSheet.Range("B2").Top