proč se chová makro takto?

kde se vzala hodnota navíc??
Dim x As Long
…
x = 1
For Each hodnoc In Range(“L24:P57”)
If Not hodnoc.Value = “” Then
Sheets(“List2”).Cells(4 + x, 4) = hodnoc.Value
x = x + 1
End If
Next hodnoc

výsledek je, že v listu2 do buňky D5 vloží hodnotu z D1, a pak pokračuje v buňce D6 a dál tak, jak makro mělo dle záměru fungovat – proč? nikde jinde v kodu promenne x ani hodnoc nejsou pouzity