VBA pobieranie danych z adresu www w komórce

Witam, na wstępie zaznaczę, że to jest mój pierwszy post. Próbuję przekształcić nagrane makro, w którym pobieram do excela tabelę ze strony www. Chciałbym, żeby zamiast adresu strony w kodzie umieścić wartość komórki B2, w której ten adres się znajduje. Jest to przygotowanie do zrobienia pętli, ponieważ w efekcie końcowym chciałbym pobierać większą ilość tabel.

Próbowałem dodać zmienną zrodlo

 Dim zrodlo As Worksheet
Set zrodlo = ActiveWorkbook.Worksheets("arkusz2")
 

i wstawić w miejsce źródła strony:
źródło = zrodlo.Range("A2")
niestety to nie działa
część kodu:

ActiveCell.Select

    ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
         Źródło = Web.Page(Web.Contents(""www.strona.pl""))

Z góry dziękuję za pomoc