Excel to custom json

Public Sub exceltocustomjson()
Dim rng As Range, items As New Collection, myitem As New Dictionary, i As Integer, cell As Variant, mainContainer As New Dictionary
Set rng = Range("A2:A3")
'Set rng = Range(Sheets(2).Range("A2"), Sheets(2).Range("A2").End(xlDown)) use this for dynamic range
i = 0
For Each cell In rng
Debug.Print (cell.Value)
myitem("name") = cell.Value
myitem("email") = cell.Offset(0, 1).Value
myitem("phone") = cell.Offset(0, 2).Value
items.Add myitem
Set myitem = Nothing
i = i + 1
Next
mainContainer.Add "price", items
Sheets(2).Range("A4").Value = ConvertToJson(mainContainer, Whitespace:=2)
End Sub