Parsing JSON directly into an Array - arrays

Question

Scenario: I am using some functions to retrieve data from a website with VBA. These functions currently read the data into a JSON file and with some more processing paste it into a worksheet.
Issue: Having to clear and write to sheets every time a new JSON is retrieved hinders the performance of the code.
Question: Would it be possible to parse the data inside the JSON object directly into a Variant Array, so that any operations with it are done in memory?
What I already tried: following up from some research online I found Parsing Json array via VBA and http://excelerator.solutions/2017/08/16/import-json-to-excel-using-vba/ and some other pages. In all these cases, the data is parsed first into a table or directly into a worksheet, but not into an array.I tried modifying my function that writes the JSON to a sheet, by parsing through the table but that would still require me to have the "paste to worksheet" step, before reading it into an array.
Function I am working with: When I call this function, my JSON file is already retrieved and stored in memory. Also, the way this works is by iteratively parsing through each offset, which would be equivalent to the rows of the array. My idea was to skip this altogether as parse the jSON directly.:
Public Sub WriteJsonToSheet(s As Worksheet, j As JSON, Optional ByVal fields As Variant, Optional rowOffset As Long = 0)
If (rowOffset = 0) Then
Dim loopvar1 As Long, loopvar2 As Long
With s.UsedRange
.ClearFormats
.ClearContents
.ClearComments
.ClearHyperlinks
.ClearOutline
.ClearNotes
End With 's.UsedRange.Clear
End If
If j.count = 0 Then Exit Sub
' get the list of all the fields in the -first- record
If IsMissing(fields) Then
fields = j.item("0.$").GetKeys("$.")
End If
' create a table and write to the spreadsheet
If (rowOffset = 0) Then
WriteRowToRange s.Cells(1, 1), fields
s.rows(1).AutoFilter
s.rows(1).Font.Bold = True
End If
' this is part of the original function, to paste to a worksheet
If (j.count > 0) Then
'Dim table As Variant
table = JsonArrayToTable(j, fields)
WriteTableToRange s.Cells(2 + rowOffset, 1), table
End If
End Sub
I created this to add to my code, but the code just skips this part and no action takes place:
' This is my attempt to past it directly to an array
Dim table As Variant
table = JsonArrayToTable(j)
For loopvar1 = 0 To UBound(table, 2)
'For loopvar2 = 1 To UBound(table, 2)
TEST.Cells(1, loopvar1 + 1) = table(0, loopvar1)
'Next loopvar2
Next loopvar1
OBS. The data in the JSON can differ greatly, so the idea was to create a general function that could pass a JSON into an array. In this case, the example of data would be (inside my code, this JSON is retrieved for multiple IDs. Each time one is retrieved, it is pasted to a new row of the output worksheet):
{
"Response": {
"dm": [
{
"$": {
"id": ""830778192",
"end_period": ""2023-10-25T00:00:00",
"end_period1": "2021-01-25T00:00:00",
}
}
]
}
}