Probleem Exceli makro OpenOfficisse

[jyrku]

Tere!

On Excelis üks makro (lihtne lahtrite väärtuste ühest kohast teise kirjutamine ja sisestusvormi puhastamine), mis oleks vaja panna tööle OpenOffices. Koodijupp ise on selline:

Sub Kanna_baasi()
Range("C1").Select
i = Worksheets("leht").Range("B127").Value
Worksheets("baas").Cells(i + 1, 1).Formula = IIf(Worksheets("leht").Cells(6, 5).Value = "", "", Worksheets("leht").Cells(6, 5).Value)
Worksheets("leht").Cells(6, 5).Value = ""
End Sub

"i" on lahter sisestusvormi lehel, kus valemiga näidatakse baasi juba kirjutatud ridade arvu
kirjutamise ja kustutamise ridu on rohkem, aga need korduvad, vaid aadress muutub