Error 1004

[yummy]

Below is my code
I get an error 1004
"Application-defined or object-defined error" on the line in red.

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

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

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

Is there a way to solve this problem or is there another way of doing what I am trying to do ?

 

[MrKowz]

What is this macro meant to do?

The reason why it is erroring on that line is because ".count" isn't referring to anything (eg rows.count, columns.count, etc)

 

[Lidsavr]

I am fairly new at writing code, but I am going to take a shot here and suggest:

Sheets(6).Range("K4").Resize(.count).Insert(xlDown)

All the times I have seen code with "xl..." it has brackets around it.

Of course, if anyone of the MVP's or senior members of the board wants to corrrect me, I am open to feedback.

Thanks,

Lidsavr