>>836
そこまで分かってて何で組めんの？
基本的な問題で躓いてるみたい。

君はどういう方針で組んでるの？
普通はそういうサンプル組めたらURLを変数に置き換えて、指定のURLを引数にして4つのデータを取得するプロシージャ作ると思うんだが。

Function Get4Data(strURL As String) As String()
Dim strData() String
.
.
.
Get4Data=strData
End Function

Sub MainProc()
Dim strData() As String
Dim i As Long
Dim j As Long
For i=2 To 102
strData=Get4Data(Cells(i,1).Value)
For j=0 To 2
Cells(i,j+2).Value=strData(j)
Next j
Next i
End Sub

4つのデータに意味を意識するならユーザー定義型を返すプロシージャにしてメインでは配列の利点を使わない。(jを使わない)
この辺は趣味の問題だと思うけど。

なお、スマホから打ってるからコードには間違いが有るかも。