Loading contents of HTTPRequest into variable and then pasting into range...

[Baxta]

Hi guys,

Im currently reading and parsing an HTTPrequest and inserting it into a worksheet via the following the code.

Set json = lib.parse(HttpReq.ResponseText)
    For x = 1 To json("results").Count
        For y = 1 To lastColumn
            Sheet11.Cells(x + 2, y) = json("results")(x)("" & Sheet11.Cells(2, y) & "")
        Next y
    Next x

Unfortunately this takes a very long time. I have been trying to load the parsed values into an array and paste it into a range but I cant wrap my head around it.

Here is how I would like it to work:

http://chrisjbaxter.com/Stuff/Excel problem.jpg