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

Мои калькуляторы: 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

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