Como cargar imágenes en Vba con ImageList1.ListImages

Necesito una mano con la siguiente macro, que al ser tan larga me da error y necesito optimizarla en unas cuantas líneas.

Los datos están en Sheets("Egger")

Lo normal es que valla recorriendo la columna A, donde está numerada de 1 al 1500 (. Add, "img1", ) y en la columna B está el nombre de la imagen. 22137.jpg

Private Sub Cargar_Listado_Egger_1()
'Dim lvItem As ListItem
Dim Wplan As Worksheet
Dim dias As Integer
Dim lin As Integer

Set h4 = Sheets("Egger")
Set Wplan = Sheets("Egger")
lin = 2

Wplan.Activate
Sheets("Egger").Select
ListView1.ListItems.Clear

With Wplan

While .Cells(lin, 1).Value <> ""
With ListView1
Set lvItem = ListView1.ListItems.Add(, , Wplan.Cells(lin, "A").Value)
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "B").Value, Wplan.Cells(lin, "A").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "C").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "D").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "E").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "F").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "G").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "H").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "I").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "J").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "K").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "L").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "M").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "N").Value
lvItem.ListSubItems.Add , , Wplan.Cells(lin, "O").Value

End With

lin = lin + 1
Wend
End With

End Sub

Private Sub ControleImageList()

Dim wbk As Workbook

Set wbk = Workbooks("Egger.xlsm")

With Me.ImageList1.ListImages

.Clear
.Add , "img1", LoadPicture(wbk.Path & "\Imagenes\8052.jpg") '1
.Add , "img2", LoadPicture(wbk.Path & "\Imagenes\8053.jpg")

.Add , "img1", LoadPicture(wbk.Path & "\Imagenes\7206.jpg")
.Add , "img2", LoadPicture(wbk.Path & "\Imagenes\8052.jpg")
.Add , "img3", LoadPicture(wbk.Path & "\Imagenes\6252.jpg")
.Add , "img4", LoadPicture(wbk.Path & "\Imagenes\7203.jpg")
.Add , "img5", LoadPicture(wbk.Path & "\Imagenes\22137.jpg")
.Add , "img6", LoadPicture(wbk.Path & "\Imagenes\29098.jpg")

End With

End Sub