Editing MY excel files in Access with VBA

[esengul]

With oExcel
.Sheets("FirstEntry").Range("A1:E2").Select
.Selection.Cut
.Sheets("FirstEntry").Range("A10").Select
.ActiveSheet.Paste
.Sheets("FirstEntry").Range("A1").Select
.ActiveSheet.Pictures.Insert("C:\mypicture.jpg").Select
End With

i have this code to move cells to down and insert a picture. i get an error message saying "runtime error '9' _ Subscript out of range"
Please tell me what i am doing wrong?
Thanks in advance