VBA: Insert Icon Based On Table

[rwcg2d]

I am looking to insert icons based on the category of the entry (not all using that same icon url below). Any ideas on how to combine the Cells(i,n) formula to output the icons? Any other ideas?

Sub Macro()
 
'Part 1
Dim p As Integer
p = 3
Do While Worksheets("PoAP (Data)").Cells(p, 2).Value <> ""
ActiveSheet.Pictures.Insert( _
        "[URL]https://hubblecontent.osi.office.net/ContentSVC/Content/svg/CallCenter.svg[/URL]"). _
        Select
Selection.ShapeRange.Name = Worksheets("PoAP (Data)").Cells(p, 4)
    p = p + 1
Loop
 
'Part 2
Dim i As Integer
'START ROW
i = 3
Do While Worksheets("PoAP (Data)").Cells(i, 2).Value <> ""
'Sizing
    ActiveSheet.Shapes(Worksheets("PoAP (Data)").Cells(i, 4)).width = Worksheets("PoAP (Data)").Cells(i, 17).Value
    ActiveSheet.Shapes(Worksheets("PoAP (Data)").Cells(i, 4)).height = Worksheets("PoAP (Data)").Cells(i, 15).Value
'Movement
    ActiveSheet.Shapes(Worksheets("PoAP (Data)").Cells(i, 4)).Left = Worksheets("PoAP (Data)").Cells(i, 11)
    ActiveSheet.Shapes(Worksheets("PoAP (Data)").Cells(i, 4)).Top = Worksheets("PoAP (Data)").Cells(i, 13)
    i = i + 1
Loop
 
End Sub