Help with code downloading photos into excel from URL

Hi,
I was able to use the code below to import photos into excel spread sheet using the link but I was wondering if anyone can help me figure out a code to put the photos in the corresponding hyperlink box
so if hyperlink is in A1 can I get the image to go into B1? Also I just realized this is not downloading the photos. Is there a way to actually download them?

Sub URLPictureInsert()
'Updateby Extendoffice 20161116
    Dim Pshp As Shape
    Dim xRg As Range
    Dim xCol As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    Set Rng = ActiveSheet.Range("A2:A781")
    For Each cell In Rng
        filenam = cell
        ActiveSheet.Pictures.Insert(filenam).Select
        Set Pshp = Selection.ShapeRange.Item(1)
        If Pshp Is Nothing Then GoTo lab
        xCol = cell.Column + 1
        Set xRg = Cells(cell.Row, xCol)
        With Pshp
            .LockAspectRatio = msoFalse
            .Width = 100
           .Height = 100
            .Top = xRg.Top + (xRg.Height - .Height) / 2
            .Left = xRg.Left + (xRg.Width - .Width) / 2
        End With
lab:
    Set Pshp = Nothing
    Range("A2").Select
    Next
    Application.ScreenUpdating = True
End Sub

Hi, welcome to the forum.
You should lookup post by MyVB_polly and anilpatni1234; they've got some files with code inserting pictures in a cell's worksheet , I'm sure it'll help you one way or another