Boa noite, Palmanhani (Boa madrugada, )

Amigo obrigado por esta dúvida, aprendi algo novo ajudando a ti, pois ainda não tinha feito este tipo de
ajuste de imagem (automaticamente) em relação as dimensões da célula ....

Então vamos lá... terá que deletar o seu código (mensagem anterior) e colocar esse que se encontra
abaixo:

Sub Picture()
Dim pictname As String
Dim pastehere As Range
Dim pasterow As Long
Dim x As Long
Dim lastrow As Long

lastrow = Worksheets("Planilha1").Range("B1").CurrentRegion.Rows.Count

x = 2

For x = 2 To lastrow

Set pastehere = Cells(x, 1)

pasterow = pastehere.Row

Cells(pasterow, 1).Select 'This is where picture will be inserted

pictname = Cells(x, 2) 'This is the picture name
ActiveSheet.Pictures.Insert("C:UsersRodrigoPictures2016-11" & pictname & ".jpg").Select 'Path to where pictures are stored

' ****************************
 Dim iColumnWidth  As Long
 Dim iRowHeight  As Long

  iColumnWidth = Columns("a").ColumnWidth * 5.3
  iRowHeight = Rows(pasterow).RowHeight
' ****************************

With Selection

.Left = Cells(pasterow, 1).Left
.Top = Cells(pasterow, 1).Top

.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = iRowHeight 
.ShapeRange.Width = iColumnWidth 
.ShapeRange.Rotation = 0#

End With

Next

End Sub

Como pode observar, fiz pequenas alterações no Height e Width e acrescentei um trecho de código
que fazem o ajuste que pediu ...

Agora com isso qualquer imagem (de qualquer tamanho) ficará perfeitamente ajustada na célula da Coluna "A" ...

Espero que seja isto que queria ...

Qualquer coisa estamos aqui para ajudar ...

Aguardando sua resposta e seu Feed Back(é muito importante) ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB