Try:
Code:
Dim Rng As Range
With ActiveDocument
Set Rng = .Range
With Rng
.Collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
.Collapse direction:=wdCollapseEnd
End With
.Shapes.AddPicture LinkToFile:=False, Anchor:=Rng, _
FileName:="C:\somefilename.bmp", _
SaveWithDocument:=True, Left:=300, Top:=1, Width:=100, Height:=100
End With