Добрый день!  
 
Мне необходимо переместить картинку к активной ячейке, но никак не получается.  
 
Вот написал корявенький код  
 
s1 = Worksheets("обработка_подгрузки").Range("A2").Value  
Set myDocument = Worksheets("креатив")  
myDocument.Shapes.AddPicture _  
   s1, _  
   True, True, 100, 100, 108, 108  
With Worksheets("креатив")  
   .Shapes(1).Left = .Range("e2").Left  
   .Shapes(1).Top = .Range("e2").Top  
End With  
 
Но никак не могу понять как мне вместо "Range("e2")." заставить VBA перетаскивать картинку к активной ячейке.  
 
Помогите, пожалуйста!