Estou adicionando arquivos ".jpg" à minha planilha do Excel com o código abaixo:

'Add picture to excel
xlApp.Cells(i, 20).Select
xlApp.ActiveSheet.Pictures.Insert(picPath).Select
'Calgulate new picture size
With xlApp.Selection.ShapeRange
    .LockAspectRatio = msoTrue
    .Width = 75
    .Height = 100
End With
'Resize and make printable
With xlApp.Selection
    .Placement = 1 'xlMoveAndSize
    '.Placement = 2 'xlMove
    '.Placement = 3 'xlFreeFloating
    .PrintObject = True
End With

Eu não sei o que estou fazendo errado, mas ele não é inserido na célula certa, então o que devo fazer para colocar esta imagem em uma célula especificada no Excel?