Sub InsertFootnoteNow()
  With Selection
    .Footnotes.Add Range:=.Range
    'To adjust  the tab with, use these two lines
    .Paragraphs(1).TabStops.ClearAll
    .Paragraphs(1).TabStops(1).Position = 18 'change to suit
    With .Paragraphs(1).Range
      'If you only want the reference in the footnote modified use ...
      .Characters(1).Font.Superscript = False
      .Characters(1).Font.Bold = True
      '... otherwise change the footnote reference style
      .Characters(2) = vbTab
      .Characters.Last.Select
    End With
    .Collapse
    ActiveWindow.ScrollIntoView .Range
  End With
lbl_Exit:
  Exit Sub
End Sub