Подправить макрос для копирования последней строки в таблице

[X Brain]

Добрый день. Есть макрос работающий в EXCEL, (копирует последнюю строку в таблице с изменением даты на следующий месяц), но в LibreOffice выдает ошибку, помогите подправить код пожалуйста. Приложил код и видео, чтобы было понятно, что нужно.

https://youtu.be/kmFLsmC28fI

Код Выделить Развернуть

Private Sub Copy_Row()
   With ActiveSheet.UsedRange
        rw& = .Rows.Count
        .Rows(rw&).Copy
        .Rows(rw& + 1).Insert xlDown
        .Rows(rw&).Cells(1).Resize(2).DataSeries , xlChronological, xlMonth
   End With
End Sub

[eeigor]

xlChronological, xlMonth

Трудно сказать, но попробуйте заменить xl-константы на значения: 3, 3