W podanym przez Ciebie linku, kolejne podstrony różnią się ostatnią cyfrą (przecinek i cyfra)
1 strona: https://www.biznesradar.pl/notowania-historyczne/NNDN25.TFI
2 strona: https://www.biznesradar.pl/notowania-historyczne/NNDN25.TFI,2
3 strona: https://www.biznesradar.pl/notowania-historyczne/NNDN25.TFI,3 itd.
dla strony 1 możesz ustawić https://www.biznesradar.pl/notowania-historyczne/NNDN25.TFI,1
więc kod, ze strony (chodzi o linię 13)
Czytałem trochę o robieniu pętli makro (tutaj link do wpisu)
Sub ImportStronWeb()
'
' ImportStronWeb Makro
'
'
Dim intLicznik As Long
intlicznikpodstron = 1 'np 8 podstron
intLicznikWierszy = 1 'np kolejne dane w odstępie 500 wierszy
Do While intlicznikpodstron < 8
With ActiveSheet.QueryTables.Add(Connection:="URL;https://tomaszkenig.pl/page/" & intlicznikpodstron & "/", _
' reszta kodu
zamień np. tak
Sub ImportStronWeb()
'
' ImportStronWeb Makro
'
'
Dim intLicznik As Long
intlicznikpodstron = 1 'np 8 podstron
intLicznikWierszy = 1 'np kolejne dane w odstępie 500 wierszy
Do While intlicznikpodstron < 8
With ActiveSheet.QueryTables.Add(Connection:="URL;https://www.biznesradar.pl/notowania-historyczne/NNDN25.TFI," & intlicznikpodstron, _
' reszta kodu
oczywiście wartości dla zmiennych: intlicznikpodstron, intLicznikWierszy ustaw według własnych potrzeb.