Option Explicit
Sub Test123()
Dim httpReq As Object
Dim colUrls As VBA.Collection
Dim i As Long
Set httpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
Set colUrls = New VBA.Collection
For i = 1 To colUrls.Count
httpReq.Open "GET", colUrls(i), False
httpReq.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
httpReq.SetRequestHeader "Accept-Language", "de,en-US;q=0.7,en;q=0.3"
httpReq.Send
With Cells(Rows.Count, "A").End(xlUp)
If .Value <> "" Then
.Offset(1, 0).Value = colUrls(i)
.Offset(1, 1).Value = httpReq.ResponseText
Else
.Offset(0, 0).Value = colUrls(i)
.Offset(0, 1).Value = httpReq.ResponseText
End If
End With
Next
Columns(1).AutoFit
Set httpReq = Nothing
End Sub