Why my UserForm cannot be initialized?

[SMC]

I've just solved this problem.
It was .End(xlRight), instead of .End(xlToRight) (btw why not .End(xlToUp) or .End(xlToDown) ????)

But although i can now open my Form, as soon as i click 'Change Product' i get:

Run-time error '9':
Subscript out of range

so there is no end of my torments
[vba]Private Sub SomeProcedure()
...
...
For i = 0 To UBound(dx.SizeX) - 1
ActiveSheet.Cells(korak, 3 + i) = dx.SizeX(i + 1)
Next i
...
[/vba]
dx.SizeX(i + 1) =<Subscript out of range> !!!!!!!

beside the ArrayFill() (above given code), i have "Product_Change() " procedure:
[vba]Private Sub Product_Change() 'Change Event for combo 'Products'

flag_artikal = False

'get the correct DataX object reference from your collection
Set dx = DataXCollection(Product.Text)
PriceInput.Text = dx.PriceX
Color.List = dx.ColorX
Color.ListIndex = 0
Size.List = dx.SizeX
Size.ListIndex = 0
End Sub[/vba] ..which initializes dx objects.

Two procedures are in charge for dx objects: ArrayFill() & Product_Change(), so I think something's between those procedures is wrong.

However i'm wondering why the same code was working with previous transposition (arrangement of data blocks - that is horizontal) of the data Sheet.

What this arrangement has to do with mentioned error ??? and of course HOW to resolve it.

Thanks