How do I prevent a table from losing the font name / size and column text align at InsertRowAfter?

Hello!
The following macro removes the font name and size and text align for columsn from the entire table.
How do I prevent this?

Private Sub pAddNewRow(ByRef uDoc As Object, ByRef uSm As Object)

Dim oDispatcher As Object
Dim oFrame As Object
Set oFrame = uDoc.getCurrentController().Frame
Set oDispatcher = uSm.CreateInstance("com.sun.star.frame.DispatchHelper")

Dim noArgs() As Variant
Call oDispatcher.executeDispatch(oFrame, ".uno:InsertRowsAfter", "", 0, noArgs())

End Sub

Do not format the table content by manual (direct) formatting method. Use the Styles. Use the default ones or your own styles.

You can use the predefined Table styles in the LibreOffice, and you can format the table with the predefined Paragraph styles (the style Table Content and style Table Header) or with your own Paragraph styles.
In this case the new line of the table will inherit the Style from the row located before the new row; or the new row will be formatted corresponded to the Table Style (alternate row color or other…).

Probably the bug: 126008 – TABLES STYLES: Inserting or removing a row/column changes entire table's formatting (see comment 5)
But I haven’t problem in version 24.2.4.2 Win10
Tested macro:

Sub addRowToTable
createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:InsertRowsAfter", "", 0, array())
End Sub