Word 2010 - automatically insert word doc at the end of page of current doc

I am using word 2010.  How can use a keyboard stroke (ALT-M) that will open file dialog box, then insert selected word document into my current open word document at end of the page.  I use to have a normal.dot for word 2003 that had the following code, but don't know how to create this in the normal.dotm in word 2010.  I need this to be native to word 2010 dotm file (without 2003 compatibility mode):

Sub insertmyfile()
Dim oBookmark As Bookmark
Dim oRange As Range
Dim oRangeStart As Range
Dim oRangeEnd As Range

   
  'Set the range at the last paragraph in the bookmark
    Set oRange = ActiveDocument.Content
    oRange.Collapse direction:=wdCollaspeEnd
   
  With oRange
    'Insert two paragraph markers
    .Collapse direction:=wdCollapseEnd
    .Text = Chr(13) '& Chr(13)
    .Collapse direction:=wdCollapseEnd
   
    'Insert the file
    Dim sPath As String
    Dim sFileName As String

    With Dialogs(wdDialogInsertFile)
      If .Display = True Then
        'User pressed Ok, get filename
        sFileName = .Name
      Else
        MsgBox "You didn't select a file to insert"
        Exit Sub
      End If
    End With
    'Get the path
    sPath = CurDir()
    'Add \ if necessary
    If Right(sPath, 1) <> Application.PathSeparator Then
      sPath = sPath & Application.PathSeparator
    End If
   
    'set the range from insert of document to end of document
    Set oRangeStart = ActiveDocument.Content            'begin is end of previous doc
    oRangeStart.Collapse direction:=wdCollaspeEnd       'collapse entire document
   
    'Get identical range for oRangeEnd
    Set oRangeEnd = oRangeStart.Duplicate
   
    'Insert a paragraph in range because it needs at least 1 char to mark an insertion point
    oRangeEnd.InsertParagraph
   
    'insert file in range
    oRangeStart.InsertFile FileName:=sPath & sFileName, _
              ConfirmConversions:=False
   
    'Delete paragraph marker
    oRangeEnd.Characters.Last.Delete
    oRangeEnd.Characters.Last.Delete
 
    'Get the first bookmark in inserted document
    If oRangeEnd.Bookmarks.Count > 0 Then
        'exist bookmark = True
        oRangeEnd.Bookmarks(1).Select
    Else
        oRangeEnd.Collapse direction:=wdCollapseEnd
        'oRangeEnd.Text = Chr(13)
        oRangeEnd.Collapse direction:=wdCollapseEnd
        oRangeEnd.Select
    End If
   
  End With
 
  'Clean up variables
  Set oBookmark = Nothing
  Set oRange = Nothing
  Set oRangeStart = Nothing
  Set oRangeEnd = Nothing
 
End Sub

thanks
nick