Расчет времени и мониторинг отбора жидкости. Калькулятор

Мои калькуляторы: http://yadi.sk/d/kjRxikyGSkqQF В том числе и презентованная таблица. Специалисты, напишите в коментах, как исправить текст макроса для Excel, чтобы он в LibreOffice calc работал. Вот текст: Sub Time_Update() Dim varNextCall As Variant Cells(1, 5).Value = 0 varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1) Application.OnTime varNextCall, "Time_Update" End Sub