【ExcelVBA】QueryTablesでスクレイピング

'祝日一覧を読み込むシート名
Const SHEET_PUBLIC_HOLIDAY As String = "祝日一覧"
'取得したい表を持つURL(今年の祝日一覧)
Const TARGET_URL As String = "https://www8.cao.go.jp/chosei/shukujitsu/gaiyou.html"

Dim sheet As Worksheet
Dim sheetPublicHoliday As Worksheet

With Worksheets(SHEET_PUBLIC_HOLIDAY).QueryTables.Add(Connection:="URL;" + TARGET_URL, _
    Destination:=Range("B2"))
    '列幅を元の表と同じにする
    .AdjustColumnWidth = True
    '書式は設定しない
    .WebFormatting = xlWebFormattingNone
    '指定したテーブルのみ取得する
    .WebSelectionType = xlSpecifiedTables
    '★ 1つ目の表(今年の祝日一覧)を取得する
    .WebTables = 1
    'データ取得を実行する
    .Refresh BackgroundQuery:=False
    '作成される「クエリと接続」を削除
    .Delete
End With

Dim LstRow As Long
LstRow = Worksheets(2).Cells(Rows.Count, "B").End(xlUp).Row

With Worksheets(SHEET_PUBLIC_HOLIDAY).QueryTables.Add(Connection:="URL;" + TARGET_URL, _
    Destination:=Range("B" & LstRow).Offset(1, 0))
    .AdjustColumnWidth = True
    .WebFormatting = xlWebFormattingNone
    .WebSelectionType = xlSpecifiedTables
    '★ 2つ目の表(今年の祝日一覧)を取得する
    .WebTables = 2
    .Refresh BackgroundQuery:=False
    .Delete
End With

Option Explicit

Public Sub 祝日取込()

    '祝日一覧を読み込むシート名
    Const SHEET_PUBLIC_HOLIDAY As String = "祝日一覧"
    '取得したい表を持つURL(今年の祝日一覧)
    Const TARGET_URL As String = "https://www8.cao.go.jp/chosei/shukujitsu/gaiyou.html"
    
    Dim sheet As Worksheet
    Dim sheetPublicHoliday As Worksheet
     
    Dim LstRow As Long
    LstRow = Worksheets(2).Cells(Rows.Count, "B").End(xlUp).Row
    
    Dim ii As Long
    For ii = 1 To 6

        With Worksheets(SHEET_PUBLIC_HOLIDAY).QueryTables.Add(Connection:="URL;" + TARGET_URL, _
            Destination:=Range("B" & LstRow).Offset(1, 0))
            .AdjustColumnWidth = True
            .WebFormatting = xlWebFormattingNone
            .WebSelectionType = xlSpecifiedTables
            '★ 2つ目の表(今年の祝日一覧)を取得する
            .WebTables = ii
            .Refresh BackgroundQuery:=False
            .Delete
        End With
    Next ii
End Sub