Sorting PICTURES once they have been imported into a cell

[GaryJ09]

Hello, I have inserted pictures into my worksheet with this code:

Sub InsertPicture()
Dim sPicture As String, pic As Picture
 
sPicture = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
     , "Select Picture to Import")
 
If sPicture = "False" Then Exit Sub
 
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Placement = xlMoveAndSize
    .ShapeRange.LockAspectRatio = msoTrue
' etc.
End With
 
Set pic = Nothing
 
End Sub

I am having a problem when I try to sort the columns next to the pictures. Please take a look at the picture below:

If I sort the Item Number column, the pictures do not move and stay in their respective cells. Is there any way to change this? Thanks.

 

[GaryJ09]

Couple of things:
I did not have a picture for one of the item numbers, br001

So after I ran the macro, it messed up the association between picture, item number, and description, as well as rest of the worksheet. Please look at row 7 in the picture below:

This dissociation subsequently occurred throughout the worksheet.

Also, is there a way to size the pictures according to cell size?

Thank you.

 

[GaryJ09]

One thing I noticed is that if I have pictures in a folder which I do not have descriptions for, the macro straight dumps the pictures according to alphabetical order and messes up association with all the pictures.

What I need is:
1) if there is no picture for a particular item number in the worksheet, the macro leave that row alone and not attach a picture with it.
2) if there is a picture in the folder for which there is no item number in the worksheet, the macro should not insert that picture into the worksheet

I think the best way would be, is if you can have the macro look at the item number (in the worksheet) and then see if that item number corresponds to a file in the folder and then insert that file.

Thanks.

 

[GaryJ09]

.
2) if there is a picture in the folder for which there is no item number in the worksheet, the macro should not insert that picture into the worksheet

Or add a new row for that picture.