Erro 13: Tipos Incompátiveis

Boa tarde,

Estou tentando trazer o valor referente ao json abaixo para alimentar uma planilha, porém está apresentando esse erro.

Aguem pode me ajudar, por favor?

Public Sub exceljson4()
2
Dim http As Object, JSON As Object, i As Integer
PathName = Range("i2").Value
3
Set http = CreateObject("MSXML2.XMLHTTP")
4
http.Open "GET", "http://fipeapi.appspot.com/api/1/carros/veiculo/7/6146/2015-1.json", False
5
http.send
6
Set JSON = ParseJson(http.responsetext)
7
i = 2
8
For Each Item In JSON
9
Sheets(4).Cells(i, 1).Value = Item("referencia")

Sheets(4).Cells(i, 2).Value = Item("fipe_codigo")

Sheets(4).Cells(i, 3).Value = Item("name")

Sheets(4).Cells(i, 4).Value = Item("combustivel")

Sheets(4).Cells(i, 5).Value = Item("marca")

Sheets(4).Cells(i, 6).Value = Item("ano_modelo")

Sheets(4).Cells(i, 7).Value = Item("preco")

Sheets(4).Cells(i, 8).Value = Item("key")

Sheets(4).Cells(i, 9).Value = Item("time")

Sheets(4).Cells(i, 10).Value = Item("veiculo")

Sheets(4).Cells(i, 11).Value = Item("id")
i = i + 1
18
Next
19
MsgBox ("complete")
20
End Sub