Insert image and image name into specific place on sheet

Sub InsertFromFolder() '  dialog
Set objFSO = CreateObject("Scripting.FileSystemObject")
InitialFoldr$ = "E:\Documents\Images\" '<<< Startup folder
With Application.FileDialog(msoFileDialogFolderPicker) 'User input for folder to look at
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        mfolder = .SelectedItems(1) & "\"
End With
strExtension = Dir(mfolder & "*.jpg") ' change extension
r = 1
Do While strExtension <> ""
  Rows(r).RowHeight = 55 ' to be changed
  Cells(r, 2).Select
  ActiveSheet.Pictures.Insert (mfolder & "\" & strExtension)
  ActiveCell.Offset(, -1).Value = strExtension
  r = r + 1
  strExtension = Dir
Loop
End Sub