地味ですが、挿入できる行数を指定（第二引数）できて便利です。

sub ksInsertRow()
Dim objRows as Object

objRows =ThisComponent.Sheets(0).getRows()
objRows.insertByIndex(6,1) ‘←6行目に1行挿入

End Sub