Konwersja makra z Excela na OpenOffice

[student137]

Witam, Moze wie ktoś jak przerobić makro z xls na odt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("b:h", Range("b2").End(xlUp).Address).Select
Selection.Sort Key1:=Range("c2"), Order1:=xlDescending _
, Key2:=Range("g2"), Order2:=xlDescending _
, Key3:=Range("h2"), Order3:=xlDescending

Selection.Sort Key1:=Range("d2"), Order1:=xlDescending _
, Key2:=Range("e2"), Order2:=xlDescending _
, Key3:=Range("f2"), Order3:=xlDescending _

End Sub