Krótkie makro z Excela do OO

[Samson]

Czy ktoś umie "przetłumaczyć" poniższe krótkie makro z VB Excela na Basic OpenOffice Calc:

Kod: Zaznacz cały

Sub test()

Range("E1").Select
Do Until IsEmpty(ActiveCell)
'MsgBox ActiveCell.Value
Range("a4").Value = ActiveCell.Offset(0, 1).Value
Range("b4").Value = ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(0, 3).Value = Range("a6").Value


ActiveCell.Offset(1, 0).Select
Loop

End Sub

Z góry dziękuję za pomoc i pozdrawiam