Frankly I wouldn't bother with inserting a building block by macro, or rely on the recorder, but to achieve the same result with a macro, try the following:
Code:
Sub InsertPageNumInHeader()
Dim oRng As Range
Set oRng = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
With oRng
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Text = "[]"
.Collapse 1
oRng.Start = oRng.Start + 1
.Fields.Add oRng, wdFieldPage, "", False
End With
Set oRng = Nothing
End Sub
And yes, the online help is correct about the macro recorder. See
Installing Macros