Odwołanie do komórek

Witam oto prosty kod do odwołania komórek w OpenOffice Calc

sub test1()
Dim Doc As Object 'deklaracja
Dim Sheet As Object 'deklaracja
Dim Cell As Object  'deklaracja
Dim Cell1 As Object  'deklaracja
dim i
Doc = ThisComponent
Sheet = Doc.Sheets(0) 'odwolanie do pierwszego arkusza, gdy damy 1 to do drugiego i tak dalej
i = 0

Cell1 = Sheet.getCellByPosition(0, i) ' pobranie pierwszego polozenia komorki tj A1
do until Cell1.String = ""
Cell1 = Sheet.getCellByPosition(0, i)
Cell = Sheet.getCellByPosition(1, i+1)
Cell.String = "Test" 'ustawienie tekstu
i = i+1
loop
end sub