Help with VBA error correction

[yummy]

Below is my code

iStart = 38
'iEnd = Range("A" & iStart).End(xlDown).Row
Set d = CreateObject("scripting.dictionary")
With d
For Each e In Range("E39:E108").Value
'd.CompareMode = vbTextCompare

If Range("J", iStart).Value = "" Then

d.Item(g) = d.Item(g) + 1
iStart = iStart + 1
End If
Next e
Sheets(6).Range("J4").Resize(.count).Insert xlDown
Sheets(6).Range("J4").Resize(.count) = Application.Transpose(.Items)

End With


I am getting an error " Method 'Range' of object _'Global' " failed at line

If Range("J", iStart).Value = "" Then

I have tried but failed to correct without knowing whats wrong.
Can you please help me with this error ?

 

[stilesbn]

Replace it with:

If Range("J" & iStart).Value = "" Then

 

[Jonmo1]

This
If Range("J", iStart).Value = "" Then
should be
If Range("J" & iStart).Value = "" Then
Or
If Cells(iStart, "J").Value = "" Then

Hope that helps.

 

[yummy]

Thanks guys
Stupid mistake I made. Solved it.

Anyways now I am getting another error.

Error say
"Application-defined or object-defined error"
on line
Sheets(6).Range("J4").Resize(.count).Insert xlDown

Bye the way, Its the second time I am setting the object d to

Set d = CreateObject("scripting.dictionary")

in the code.

I tried to change the object d by creating another object but still the same
error.

Any way to pass this hurdle ?