ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg" _
        ).Select
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg" _
        ).Select
    Selection.ShapeRange.IncrementTop 290.25