VBA вставка картинки в определенный столбец таблицы

Question

У меня есть код для вставки изображения в активную ячейку, но я не мог найти способ изменить его, чтобы вставить изображение только в ячейки столбца D, а не в активную ячейку.

Sub InsertPictureInActiveCell()
Dim strFile As String
Dim rng As Range
Dim sh As Shape
Const cFile As String = "Image Files(*.bmp;*.jpg;*.jpeg;*.png),"
strFile = Application.GetOpenFilename(fileFilter:=cFile, Title:=Es)
If strFile = "False" Then
Else
    Set rng = ActiveCell
    Set rng = rng.MergeArea
    With rng
        Set sh = ActiveSheet.Shapes.AddPicture(Filename:=strFile, 
        linkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=.Left, 
        Top:=.Top, Width:=.Width, Height:=.Height)
        sh.LockAspectRatio = msoFalse
        sh.Placement = xlMoveAndSize
        End With
        Set sh = Nothing
        Set rng = Nothing

  End If
 End Sub

Я все еще новичок в VBA.Я был бы рад, если бы кто-нибудь мог помочь мне в этой ситуации.