Sub get_HistoryPrice()
Dim myString As String

url = "https://api.binance.com/api/v3/klines?symbol=BTCUSDT&interval=1m&startTime=1648771200000&endTime=1680307200000"
    Set http = CreateObject("MSXML2.XMLHTTP")
    With http
        .Open "GET", url, False
'        .setRequestHeader "Content-type", "application/json"
'        .setRequestHeader "Accept", "application/json"
'        .setRequestHeader "Authorization", "Bearer " & authKey
        .Send
    End With
myString = http.responsetext
arr_from_myString = Split(myString, "],[")

'arr_str2 = http.responseBody
'Set objectJson = JsonConverter.ParseJson(arr_str)

End Sub

Rng As Object
Set Rng = Range("Table1")
Rng.Range(Cells(1,1), Cells(10,1)) = "да"

MsgBox " пока всё по прежнему"

Cells(5, 1).value = 500

Sub mmm()
Dim dic_Text0 As Object: Set dic_Text0 = CreateObject("Scripting.Dictionary")
'Dim arr_Text0 As Variant

For Z = 1 To 10
dic_Text0.Item("A" & Z) = Z
Next Z

arr_Text0 = dic_Text0.Keys()
Range("Table1") = arr_Text0

End Sub

Range (“Table1”).Resize (RowSize:=11, ColumnSize:=3)
Или 
Range (“Table1”).Resize (11,3)

Sub test1()

Dim arr() As Variant 'задали безмерный массив
ReDim Preserve arr(1 To 5, 1 To 6) As Variant ' задали двух мерный массив
ReDim Preserve arr(1 To 5, 1 To 6, 1 to 7) As Variant [B]' задать третье измерение не удалось[/B]


End Sub

Worksheets(1).Range("Table1").[ХХХ].Find("свекла").Row

Private Sub Button1_StartStudy_Click()
StudyTable.Show vbModeless
End Sub

Private Sub UserForm_Activate()

Sub ааа()
Range("Таблица1").Cells(1, 1).FormulaR1C1 = "=ТДАТА()"
Range("Таблица1").Cells(1, 2) = "=2+2"
Range("Таблица1").Cells(1, 3) = "=$A$1 + $B$1"
Range("Таблица1").Cells(1, 4) = "=СЛЧИС()"
End Sub