Resim Url'sinden Resmi Getirme

Merhaba,
şimdi a sütununda resim url leri var. B sütununa bu urldeki resimleri görsel olarak getirmek istiyorum. Aşağıdaki gibi makro kodum var ancak bu sadece ilgili satırın işlemini yapıyor. Bunu aşağı doğru sürükle bırak olarak tüm satırlarda uygulamak istiyorum.
Nasıl yapabilirim ?

Sub resimcek()
Dim URL As String
URL = Worksheets("Ürünler").Range("B2").Value
Range("C2").Select
ActiveSheet.Pictures.Insert(URL).Select
End Sub

Selamlar ,

Sizin için aşağıdaki kodu hazırladım.Çalıştırdığınızda A sütununda yazan adreslerdeki resimler B sütunundaki satırların karşısın getiriyor.
Bir güzellikte hücrenin genişliği ne kadar ise oraya sığdırıyor.

Umarım faydalı olur.
İyi Çalışmalar.

Sub resimekle()
Dim sPicture As String, pic As Picture
Range("B1").Select
For i = 1 To Range("A500").End(xlUp).Row
sPicture = Cells(i, 1)

If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Offset(0, 0).MergeArea.Height - 1
.Width = ActiveCell.Offset(0, 0).MergeArea.Width - 1.5
.Top = ActiveCell.Top + 1.1
.Left = ActiveCell.Left + 1
.Placement = xlMoveAndSize
End With
Set pic = Nothing
ActiveCell.Offset(i, 0).Select

Next
End Sub

hocam kod gayet güzel çalışıyor peki ya elimizdeki link sayımız 20.000 e yakın ise hepsini nasıl gösterte biliriz