tabulky - makro

Zdravím,
potřeboval bych poradit, mám v tabulce v jednom sloupci URL obrázků a potřeboval bych do druhého sloupce ten obrázek dle URL v daném řádku.
Nikdy jsem s makrem nepracoval, našel jsme na netu tohle makro, jste schopni mi prosím poradit kde je problém? protože mi to háže chybu RANGE (což je asi nějaký rozsah...)

Sub InsImg()

Dim URL As Range

For Each URL In Range("A1", Cells(Rows.Count, "A").End(xlUp))
With URL.Parent.Pictures.Insert(URL.Value)
.Left = URL.Offset(0, 1).Left
.Top = URL.Offset(0, 1).Top
URL.EntireRow.RowHeight = .Height
End With
Next

End Sub

Děkuji za odpověď.