Makro/VBA indsættelse af billed fra drev

Hej,

Jeg har nu prøvet at lave en makro og den virker men kun for første varer.
Jeg har lavet en hjælpe kolonne D som er en sammenkædning af kolonne B&C
Makro virker når jeg skriver en specifik celle den skal kigge i f.eks D7 som nedenfor, men hvis jeg vil have den til at kigge i hele kolonne D og hver gang den støder på navnet stylenumber skal den indsætte et billed.

Ligeledes har bedt om at billedet bliver sat ind i celle B23, men her skal den også kunne sige kolonne B indsæt 16 linjer under stylenumber






Sub UpdatePictures()

Dim picPath As String
Dim stylenumber As String

Application.ScreenUpdating = False

ActiveSheet.Pictures.Delete

picparth = "p:\"

stylenumber = Right(Range("D7"), 8)
Range("B23").Select
ActiveSheet.Pictures.Insert("P:\" & stylenumber & ".jpg").Select

    Selection.ShapeRange.Height = 77.6692913386
    Selection.ShapeRange.Width = 114.2362204724
    Selection.ShapeRange.IncrementLeft 3
    Selection.ShapeRange.IncrementTop 3

End Sub